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OTROS LENGUAJES 


UNQUE en un capítulo 
anterior vimos el aná- 
lisis de sistemas como 
parte integrante del 
proceso de mecani- 
zación, vamos a pro- 
fundizar más en el 
tema haciendo un es- 
tudio más detallado del análisis funcio- 
nal y el orgánico. 


PRESUPUESTO Y 
PLANIFICACION DE 
TRABAJO 


NECESIDADES 
DEL USUARIO 


NUEVAS NECESIDADES 
DEL USUARIO 


sistema actual para conocer detallada- 
mente las áreas que puedan ser objeto 
de mejoras y los problemas existentes. 
Para ello es necesario hacer una descrip- 
ción general del sistema en cuanto a ám- 
bito, normas e instrucciones existentes. 
Este estudio se hace a distintos niveles: 
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ANALISIS DE SISTEMAS 


| 
O Analisis funcional 


Esta fase de análisis comienza una vez 
finalizada la de estudio de viabilidad del 
proyecto informático. Se desarrolla en lí- 
neas generales informáticas, no en pro- 
gramas concretos. Su objetivo es diseñar 
un nuevo sistema. 

Primeramente hay que tener un profun- 
do conocimiento de las necesidades del 


— estudio lógico de cada documento 
existente, 
— estudio físico del soporte de infor- 
mación, 
— evaluación global del sistema ac- 
tual, fijándonos en los siguientes puntos: 
— funciones innecesarias, 


— documentación deficiente, 

— nuevas necesidades, 

— falta o deficiencia de controles, 
etc. 


Una vez conocidas las necesidades de 
información se debe diseñar totalmente 
el nuevo método de trabajo, definiendo 
qué datos se suministrarán desde el ex- 
terior, cuáles van a ser los procedimien- 
tos utilizados y las nuevas salidas para 
producir los informes. 

También se determinarán los procedi- 
mientos de actualización y agrupamien- 
to de datos y, por último, se establecerá 
la sucesión de los distintos tratamientos 
necesarios. 

Aunque en el momento de la mecani- 
zación no se haya pensado más que en 
una parte del trabajo, el análisis debe 
realizarse sobre todo él. Si lo que se va a 
automatizar es una empresa, probable- 
mente existan departamentos en los que 
ya se haya analizado una aplicación si- 
milar o incluso idéntica. 


PROCESOS 


Ejemplo de un organigrama funcional. 


Fases del análisis funcional 


Los puntos principales a desarrollar en 
un analisis funcional son tres: informes, 


entidades y procesos. Las fases del aná- 
lisis funcional se corresponden con ellos, 
excepto una fase adicional de trata- 
miento global. 


1. Esquema general 


Inicialmente se hace un análisis global 
y se determinan las divisiones del traba- 
jo en distintas áreas. Se intenta hacer una 
descripción general de la aplicación 
desde el punto de vista organizativo, en 
forma jerárquica. Si algunas de las áreas 
de subdivisión sigue siendo muy comple- 
ja, se vuelve a efectuar una división den- 
tro de ella. Con este análisis descenden- 
te se va produciendo un árbol invertido, 
en cuyos últimos nodos se encontrarán 
las informaciones necesarias para tratar 
cada una de las áreas. 

Cada una de estas áreas tendrá un tra- 
tamiento diferente y los procesos corres- 
pondientes serán independientes, con 
distintos procedimientos y operaciones. 
Será necesario, por tanto, prever las ne- 
cesidades de cada proceso (hardware, 
software, personal, etc.) y diseñar los 
nuevos documentos. 

Una vez definidas completamente 
cada una de estas áreas, se hará de nue- 
vo el análisis ascendente, estableciendo 
las relaciones con el resto de aplicacio- 
nes. 


[A Fases en un proyecto informático. 


2. Detalle de informes 


En cada uno de los informes obtenidos 
del análisis anterior se hará hincapié en 
dos aspectos; uno en cuanto al conteni- 
do, poniendo especial interés en los for- 
matos y otro en cuanto a las líneas de in- 
formación. 

El dossier del análisis funcional tiene 
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por objetivo describir detalladamente to- 
das las acciones llevadas a cabo para 
obtener la solución adecuada; para ello 
se redacta un informe sobre las necesi- 
dades y peticiones del usuario. Este infor- 
me se llama cuaderno de carga y pue- 
de ser diseñado por el informático, el 
cliente o el usuario. 

Los puntos básicos en el diseño del 
cuaderno de carga son: 

— Definición general del problema: su 
naturaleza, su periodicidad en las explo- 
taciones de los datos, relaciones del sis- 
tema con el resto de las áreas de la em- 
presa, etc. 

— Los documentos base. 

— Los resultados. 

— El tratamiento: esta parte deberá 
elaborarse con mucho cuidado y muy 
claramente para una perfecta y rápida 
comprensión por parte del personal infor- 
mático. 

FICHEROS 


| 


REGISTROS 


Na, ot 


DATOS 


CODIFICACION LONGITUD ETIQUETAS 


Proceso de descripción de los datos. 


3. Estructura de la información 


Consiste en organizar las informaciones 
y datos del punto anterior, haciendo una 
subdivisión basada en las áreas en las 
que se aplica. Una vez hecho el reparto, 
se especifican sus características refe- 
rentes, por ejemplo, al tipo de dato, nú- 
mero de posiciones necesarias, etc. Tam- 
bién hay que tener en cuenta que no to- 


dos los datos se tienen que agrupar en 
entidades. 


ALTA MAESTRO 


[A Organigrama de bloques. 


4. Análisis de procesos 


Consiste en hacer un estudio en profun- 
didad de los procesos a realizar en cada 
una de las áreas de subdivisión del pri- 
mer punto, para mantener los datos ac- 
tualizados. Para cada uno se realizará un 
diagrama con sus entradas y salidas y la 
descripción de sus objetivos. 


| 
2. Analisis orgánico 

Una vez analizada funcionalmente la 
aplicación se deberá facilitar toda la in- 
formación necesaria y suficiente para la 
programación y puesta a punto, convir- 
tiendo el diseño funcional en un diseño 
detallado, desde el punto de vista de sus 
características informáticas. 

Desde una visión global se deberán 
tratar tanto la estructura general de la 
aplicación en cuanto a configuración 
hardware y software, como la división de 
la aplicación en procesos, determinan- 


do las relaciones concretas entre las 
aplicaciones. 

Las normas de programación y puesta 
a punto, y los criterios a seguir por los pro- 
gramadores a la hora de codificar, docu- 
mentar y probar, también es objetivo de 
esta fase. 

El análisis orgánico afecta a: 


1. Los datos 


Es preciso hacer una correspondencia 
entre las especificaciones pedidas por 
los usuarios y los datos integrantes del sis- 
tema. Como resultado de este estudio se 
determinarán la asignación de ficheros y 
las relaciones entre unos y otros. Es muy 
diferente utilizar una base de datos de 
tipo relacional que un sistema de fiche- 
ros indexados, por lo que esta etapa es 
importante y decisiva en el resto del pro- 
ceso de análisis. 

Por cada archivo que utilice la aplica- 
ción, se deberá generar la siguiente do- 
cumentación: 

— descripción de archivos, 

— diseño gráfico de registros, 

— descripción de registros. 


2. Los programas 


Al igual que en el caso anterior, el tra- 
bajo a realizar puede considerarse como 
una continuación a la fase de análisis 
funcional. 

En este punto se analizará uno por uno 
cada proceso, determinando los progra- 


Estructura 
alternativa 


Estructura repetitiva 


Estructura 
alternativa 


y Organigrama de una unidad de tratamien- 
to. 
mas necesarios para cada caso. Al final 
se explicarán los programas comunes a 
varios procesos. 

Por cada programa habrá que especi- 
ficar: 

— su descripción general y los objeti- 
vOS, 

— descripción detallada a nivel de ru- 
tinas, 

— organigrama de funcionamiento y 
tablas de decisión, 

— conexiones con otros programas, 

— entradas al programa, 

— diseños de informes o listados, pro- 
ducto del programa. 


e 


En 


Estructura 
repetitiva 


Á Estructuras básicas en programación: estructura alternativa es la que ejecuta un conjunto de 
operaciones sólo una vez de acuerdo a la condición analizada y estructura repetitiva en la 
que ejecutan las operaciones hasta que se cumpla una cierta condición. 


e Instrucciones 
INT e IRET 


ON dos instruccio- 
nes ejecutables (aná- 
logas a las instruccio- 
nes CALL y RET ante- 
riormente descritas) 
que sirven para co- 
menzar y terminar la 
ejecución de las in- 
terrupciones software. 

Para ejecutar una interrupción seftwa- 
re se emplea la instrucción INT, abrevia- 
tura de «interrupt». Para indicar que el 
control de ejecución debe volver a la ins- 
trucción siguiente a la que llamó a la in- 
terrupción, se emplea la instrucción IRET, 
abreviatura de «interrupt return», que sig- 
nifica «retorno de la interrupción». 

El mecanismo que permite que cuando 
se termina una interrupción se vuelva a 
la instrucción adecuada, es el siguiente: 

Cuando se produce una interrupción 
de cualquier tipo, el 8088 carga en la 
pila de ejecución (STACK) tres palabras: 
las dos primeras son la dirección a la que 
debe volver (desplazamiento y registro 
de segmento) y la tercera es el estado 
de los flags. A continuación bifurca al có- 
digo asociado a la interrupción definido 
en la tabla denominada «vector de in- 
terrupciones». 

Inversamente, cuando se ejecuta una 
instrucción IRET, el 8088 descarga de la 
pila, primero el estado de los flags y des- 
pués la dirección de retorno y bifurca a 
esa dirección. 

Los formatos de estas instrucciones son 
los siguientes: 


[etiquetal:J INT numero 


[eti queta2: 1 IRET 
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Etiqueta 1 y etiqueta 2. Son nombres que 
se pueden utilizar opcionalmente para 
identificar a estas instrucciones (como 
ocurre con ¿odas las instrucciones ejecu- 
tables). 

INT e IRET. Son los códigos de opera- 
ción. 

número. Es el operando por el que se 
define a la instrucción INT cuál es la in- 
terrupción que se quiere ejecutar. Puede 
ser cualquier número que pueda conte- 
nerse en un byte (es decir, comprendido 
entre 0 y 255) y puede expresarse, como 
las demás constantes numéricas, en de- 
cimal, hexadecimal, binario, etc., aun- 
que lo más frecuente es que se haga en 
hexadecimal (terminando el código con 
una «H»). 

Los codigos que se ejecutan con las in- 
terrupciones software desempeñan con- 
ceptualmente el mismo papel que las ru- 
tinas y se escriben utilizando las mismas 
técnicas (ver tomo 19), por lo que se les 
puede llamar «rutinas asociadas a in- 
terrupción» o simplemente «rutinas», pero 
no hay que olvidar las diferencias entre 
éstas y las rutinas verdaderas: 


— Las rutinas se llaman con instruccio- 
nes CALL y las interrupciones con INT. 

— Las rutinas se terminan con RET y las 
interrupciones con IRET. 

— El código que atiende a cada in- 
terrupción debe tener un apuntador en 
la posición adecuada de la tabla deno- 
minada «vector de interrupciones» (ver 
tomo 25), mientras que las rutinas no tie- 
nen ningún requerimiento de este tipo. 

— Como contrapartida, las rutinas tie- 
nen que ser llamadas desde el programa 
ejecutable que las contiene (aunque 


pueden estar en módulos fuente diferen- 
tes que luego se ensamblan y se enlazan 
con el programa LINK), mientras que las 
interrupciones pueden ser llamadas des- 
de programas diferentes. 

En el caso en que se llame a una in- 
terrupción desde un programa diferente 
al que contiene el código que atiende a 
la interrupción (que es el caso más fre- 
cuente), dicho código debe residir per- 
manentemente en memoria. 

Se dice que un programa «reside en 
memoria» cuando está en memoria ROM 
o cuando está en una zona de memoria 
RAM respetada por el Sistema Operativo. 
Es decir, una zona de memoria que no uti- 
lizará para cargar otros programas. 

La memoria ROM conserva la informa- 
ción aunque se interrumpa la alimenta- 
ción eléctrica, mientras que la memoria 
RAM pierde su contenido cuando des- 
aparece por un momento la alimentación. 


O Instrucciones CL! y STI 


Son dos instrucciones que modifican el 
estado del flag de control de interrupcio- 
nes IF («interrup enable flag»). Estas ins- 
trucciones no tienen operandos y, por 
tanto, se utilizan escribiendo únicamente 
su código de operación. 

CLI pone en «off» (0) el flag IF sin afec- 
tar a los demás flags. En esta situación el 
8088 no reconoce las interrupciones ex- 
ternas que le llegan por el hilo INTR des- 
de los periféricos. Sin embargo, este flag 
no afecta a las interrupciones internas 
(INT, INTO, etc.) ni a las interrupciones ex- 
ternas que llegan al 8088 por el hilo NMI. 

STI pone en «on» (1) el flag IF sin afec- 
tar a los demás flags. En esta situación el 
8088 reconoce todas las interrupciones, 
tanto las internas como las externas. 


e Interrupciones software 
del sistema 


El IBM/PC aprovecha el mecanismo de 
interrupciones software que tiene el 8088 
para tener siempre en memoria una se- 
rie de rutinas que realizan funciones de 
utilidad general y que pueden ser llama- 
das desde cualquier programa, inter- 
cambiando información a través de los 
registros del microprocesador. 


En la mayoría de los casos, las interrup- 
ciones son capaces de ejecutar varias 
funciones diferentes. Se ha estandariza- 
do que el código de la función deseada 
se defina en el registro AH antes de lla- 
mar a la interrupción. 

Las interrupciones software disponibles 
en el IBM/PC pertenecen a dos grupos: 


— Las interrupciones del BIOS. 

BIOS son las siglas de «Basic Input Out- 
put System» y se puede traducir por «Sis- 
tema básico de entradas y salidas». Las 
interrupciones de este grupo residen per- 
manentemente en la zona de memoria 
ROM. 

— Las interrupciones del DOS. 

DOS son las siglas de «Disk Operating 
System», que significa «Sistema Operativo 
en Disco». Este grupo de interrupciones 
se carga en memoria RAM durante la fase 
de IPL (carga del programa inicial) y per- 
manecen mientras se funcione con el 
DOS. 

Las interrupciones de este grupo utili- 
zan normalmente las interrupciones del 
grupo anterior. Por ejemplo, hay una fun- 
ción del DOS que permite representar en 
pantalla cadenas de caracteres. Pues 
bien, para representar cada uno de los 
caracteres de la cadena, dicha función 
DOS hace repetidas llamadas a una fun- 
ción del BIOS que representa los carac- 
teres de uno en uno. 


m interrupciones del BIOS 


Como se puede ver en la tabla del 
tomo 25, el BIOS proporciona una serie 
de funciones asociadas a las interrupcio- 
nes 16 a 26 (10H a 1AH); con ellas se pue- 
den usar eficazmente los periféricos (te- 
clado, pantallas, impresoras, discos, dis- 
kettes, etc.) sin tener que conocer las 
particularidades del manejo de cada 
uno de ellos. También se puede conocer 
la configuración de la máquina, es decir, 
la memoria y los periféricos instalados y 
otras funciones auxiliares como la defini- 
ción y obtención de la fecha y hora del 
sistema, etc. 

Las funciones del BIOS se usan funda- 
mentalmente para programar los siste- 
mas operativos como el DOS, pero pue- 
den utilizarse desde cualquier programa 
escrito en ensamblador o en cualquier 
lenguaje que permita definir registros y 
ejecutar instrucciones INT. 
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EDUCATIVOS + DE UTILIDAD + DE GESTION + DE JUEGOS 


, Programa: 
'¡ Editor de 


pantalla para IBM 


N tomos anteriores vi- vamos a ver un programa que nos permi- 
mos un programa te hacer lo mismo pero en un ordenador 
que nos permitía es- IBM pc, que trabaje bajo GWBASIC, o 
cribir textos con nues- cualquier compatible. 

tro ordenador e impri- 

mirlos más tarde con 

la ayuda de una im- 

presora. En este tomo 


1000 REM dosSSSISIS ISS IS SISSI KK 


1001 REM * 
1002 REM x* EDITOR 
1003 REM * 

1004 REM x 

1005 REM * 

1006 REM Add SiSiS SO SSSO Ojo lE illa jojojo jOjOiOiOJOK 

1007 REM 

1008 REM AdMSRSddSSiSiSSO SO lOSloldldldlEiOlojojojok 

1009 REM * (c) Ed. Siglo Cultural * 

1010 REM * (c) 1987. * 

1011 REM ARSRSRSRSMSOSSiSS SOS OSOS jojok 

1012 REM 

1013 REM x*x*x* PRESENTACION x*x*x* 

1014 REM 
1015 KEY OFF 

1016 CLS 

1017 PRINT STRING$(79,"x*") 

1018 FOR I = 1 TO 19 

1019 PRINT "*x"; TAB(79); "x*" 

1020 NEXT 1 

1021 PRINT STRING$(79,"x*") 

1022 LOCATE 8,36: PRINT "EDITOR" 

1023 LOCATE 9,35: PRINT "--=----- A 

1024 LOCATE 12,26: PRINT "(c) Ed. Siglo” Cultural, 1987" 

1025 LOCATE 24,1 e 

1026 FOR I = 1 TO 1200: NEXT 1 

1027 REM 

1028 REM *** DEFINE MEMORIA *xx 

1029 REM 

1030 DEF SEG=8%H9C40 

1031 REM | 
1032 REM *** DECLARACION DE ARRAYS ox 

1033 REM 


POR: PETER BERGMANN 


ER A E 


1034 OPTION BASE 1 
1035 DIM ROWMEM(200) 
1036 DIM ROWEND(200) 
1037 DIM BUFF$(1440) 
1038 DIM FILE. NAME$(25) 
1039 DIM FILE. LEN(25) 
1040 DIM PBUFF$(80) 
1041 REMx 
1042 REM  *x*x* DECLARATION DE FUNCIONES »*xx 
1043 REM 
1044 REM 
1045 DEF FNROW(X,P) = X+(P-1)x*20 
1046 Rin 
1047 REM 
1048 REM sSSRSSjSISS SSA TSISIOSSASjSlOS ESOS SSI jSJEjOIOIOK 
1049 REM * MENU k 
1050 REM saaalO RSS ISSO SEO jajajajaa SS lola jojojo kk 
1051 REM 
1052 CLS 
1053 LOCATE 3,32: PRINT "MENU DE ARCHIVO” 
1054. LOCATE 08790: ¿PRENT.."—"=== +53 7 
1055 LOCATE 6,29: PRINT "A - ABRIR ARCHIVO” 
1056 LOCATE 7,29: PRINT "P - IMPRMIR ARCHIVO" 
'R 
e 


1057 LOCATE 8,29: PRINT "R - RENOMBRAR ARCHIVO" 

1058 LOCATE 9,29: PRINT "C - COPIAR ARCHIVO" 

1059 LOCATE 10,29: PRINT "K - BORRAR ARCHIVO" 

1060 LOCATE 11,29: PRINT "X - SALIR AL SISTEMA" 

1061 LOCATE 14,1: PRINT "(QUE OPCION DESEAS"; 

1062 INPUT O$ 

1063 IF (0$ <> "A") AND (0$ <> "P") AND (0$ <> "R") AND (0$ <> "K") AND (08 <> 
C") AND (0$ <> "X") THEN GOTO 1061 


1064 IF 0$ = "A" THEN GOSUB 1082 
1065 IF 0$ = "P" THEN GOSUB 1095 
1066 IF 0$ = "R" THEN GOSUB 1816 
1067 IF 0$ = "C" THEN GOSUB 1841 
1068 IF 03 = "K" THEN GOSUB 1867 
1069 IF 0O$ = "X" THEN GOTO 1071 
1070 GOTO 1047 

1071 REM 

1072 REM *** SALIDA x*x*x 

1073 REM 

1074 CLS 


1075 PRINT "ADIOS..." 

1076 FOR I=1 TO 10 

1077 — PRINT 

1078 NEXT 1 

1079 KEY ON 

1080 END 

1081 GOTO 1080 

1082 REM ' 
1083 REM AdoRSoSSSISlSlSISISISIS ISSO lSIO IIS lo ll lOlSIVlVIOK: 

1084 REM * ABRIR Y EDITAR ARCHIVO * 

1085 REM oooO SISISIS SISEMP: 

1086 REM 

1087 CLS 

1088 LET PAGE 
1089 LET TLEN = 5 
1090 GOSUB 1110 
1091 GOSUB 1119 
1092 GOSUB 1168 
1093 GOSUB 1227 


" 
a 


1094 RETURN 

1095 REM 

1096 REM ASSRRSSISIS IS SS lTSlSjO ISS ISSO S Ojo loloOJOK: 
1097 REM x* IMPRIMIR TEXTO * 


1098 REM dRSSRSjSPSISS SISSI lSlS SEIS SEIS lSlSSlO follo KK 
1099 REM 


2 PROGRAMAS 


1100 CLS 

1101 GOSUB 1119 

1102 IF ESFILE$ = "S" THEN GOTO 1108 

1103 LOCATE 10,1: PRINT "ESE FICHERO NS: EXISTE - (QUIERES OTRA VEZ:"; 
1104 INPUT R$ 

1105 IF R$ = "S" THEN GOTO 1101 

1106 IF R$ <> "N" THEN GOTO 1103 

1107 GOTO 1109 

1108 GOSUB 1968 

1109 RETURN 

1110 REM 

1111 REM *x** INICIALIZACION DE ARRAYS *xx 

1112 REM E 

1113 PRINT “ESPERE, POR FAVOR... (ARRAY INICIALIZACION)"” 

1114 FOR I = 1 TO 200 
1115 LET ROWMEM (1) = 
1116 LET ROWEND (1) = 
1117 NEXT 1 

1118 RETURN 

1119 REM 

1120 REM *+*x* NOMBRE DEL FICHERO A USAR >*oxx 

1121 REM 

1122 CLS 

1123 LET MEMLOC = 1! 

1124 LET ENDTEXT$ = "N" 

1125 LET ESFILES = "S” 

1126 GOSUB 1919 

1127 LOCATE 4,1: PRINT "(CUAL ES EL NOMBRE DEL FICHERO? "; 
1128 GOSUB 1946 

1129 LET FILES = INFILES$ 

1130 LOCATE 6,1: PRINT "EL NOMBRE ES ";FILES$ 

1131 ON ERROR GOTO 1135 

1132 BLOAD FILES 

1133 ON ERROR GOTO 0 

1134 RETURN 

1135 REM 

1136 REM *xx* FILE ERROR x*x*x* 

1137 REM 

1138 LET ESFILE$ = "N” 

1139 LET ENDTEXTS = "S" 

1140 RESUME 1133 


0 
0 


1141 REM 

1142 REM *x** GRABACION x*xkxk 
1143 REM 

1144 LET PAGE = 1: LET ROW = 1 
1145 CLS 


1146 LOCATE 1,1: PRINT "ESPERE POR FAVOR... (GRABACION)" 
1147 GOSUB 1156 

1148 POKE TOTAL, 234 

1149 TOTAL = TOTAL + 1 

1150 PRINT :PRINT PAGE, ROW, TOTAL 

1151 BSAVE FILE$, 0, TOTAL 

1152 GOSUB 1801 a 

1153 LOCATE 10,10: PRINT "TEXTO GRABADO EN ";FILE$ 
1154 LOCATE 12,10: PRINT "(ENTER PARA CONTINUAR)";: C$ = INPUT$(1) 
1155 RETURN 

1156 REMX*x 

1157 REM* ENCONTRAR TOTAL 

1158 REMx 

1159 LET TOTAL = O 

1160 LET 1 = 1 

1161 LET INCHAR = O 

1162 WHILE INCHAR <> 234 

1163 LET INCHAR = PEEK(I) 

1164 TOTAL = TOTAL + 1 

1165 TS EF 1d 

1166 WEND 


1167 
1168 
1169 
1170 
1171 
AS 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 


1198 
1199 
1200 
1201 
1202 
1203 


1204 
1205 


1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
Lazil 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 


RETURN 
REM 


REM *x*x* IMPRIMIR PAGINA x*xx 


REM 


SCREEN 0,0,1,1 


CLS 


LOCATE 12,23: PRINT "ESPERE PARA PAGINA 


SCREEN 0,0,0, 1 


CLS 


IF ENDTEXT$ = 


ROWNUM = FNROW(1,PAGE) 


FOR RO 


W = 1 


TO 20 


"5" THEN GOTO 1200 


IF ENDTEXT$ = "S" THEN GOTO 1196 
LET ENDLINE$ = "N" 


LET ROWMEM(ROWNUM) = MEMLOC 


FOR 


COL = 


1 TO 80 


IF ENDLINE$ = 


IF END 


MEMLOC 


NEX 


IF ENDTEXT$ = "N” THEN GOSUB 1211: 


T COL 


TEXT$ = 


“S" THEN GOTO 1191 
"S" THEN GOTO 1191 
LET INCHAR = PEEK(MEMLOC) 

IF INCHAR = 234 THEN LET ENDTEXT$ = 
IF INCHAR = 20 THEN LET ENDLINES = 
LOCATE ROW, COL: PRINT CHR$(INCHAR) ; 
IF INCHAR = 20 THEN PRINT CHR$(13); 
= MEMLOC + 1 


LET ROWEND(ROWNUM) = MEMLOC - ROWMEM(ROWNUM) + 1 
MEMLOC = MEMLOC + 1 
ROWNUM = ROWNUM + 1 
NEXT ROW 


IF ENDTEXT$ = 


IF DLE 
IF PRN 
LOCATE 
LOCATE 
LOCATE 
LOCATE 


LOCATE 
LOCATE 


LOCATE 
SCREEN 
LOCATE 
LET RO 
RETURN 
REM 


O 


"N" THEN LET ROWMEM(ROWNUM) 
ELSE LET ROWMEM(ROWNUM) 


T$ = "S" THEN GOSUB 1612: GOTO 1207 
T$ = "S" THEN GOSUB 1729: GOTO 1207 
PRINT STRING$(80,"_") 

22,1: PRINT CHR$(24);CHR$(25);CHR$(26);CHR$(27);" 
“Ctrl .T' - TAB SET" 


DEGES 


AA 
CILAD 
22,50: 
23,50% 
24,50: 


0,0,0 
pá l 
W= 1 


PRINT 
PRINT 


PRINT 
PRINT 


PRINT 
,0 


AGREE E 
"Ctr1 Q 
*Gtri S 
"SEIX 


REM *xx*xx* CHECK WRAPAROUND *xkx 


REM 


MEMLOC = MEMLOC - 1 
IF INCHAR = 20 THEN GOTO 1218 
IF INCHAR = 32 THEN GOTO 1218 


GOSUB 
RETURN 
REM 


1347 


REM *x*x* CHECK FOR EOF xxx 


REM 


LET MEMLOC = MEMLOC + 1 
LET N = PEEK(MEMLOC) 
234 THEN LET ENDTEXT$ = "S": MEMLOC 
= MEMLOC - 1 


IF N = 
MEMLOC 
RETURN 
REM 


PRT SPC" 
QUIT 

SAVE 
EXITESAVE"; 


REM xxx PANTALLA DE ENTRADA *xx 


REM 
LET QU 
ROW = 
GOL.= 


IT$ = 
CSRLIN 
POS(0) 


“yo 


MEMLOC 


= MEMLOC - 1 


"5 PAGE; ”, POR FAVOR...” 
"5": MEMLOC = MEMLOC-1: GOTO 1191 
"S": GOSUB 1219 


REM CHECK WRAPAROUND 


cursor mvmt” 
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1233 LOCATE 25,67: PRINT "R=";ROW;" C=";COL 

1234 LOCATE ROW, COL 

1235 ROWNUM = FNROW(ROW, PAGE) 

1236 AS = INKEYS$: IF A$ = "" THEN GOTO 1236 

1237 LET ROW = CSRLIN 

1238 LET COL = POS(0) 

1239 IF (AS > CHR$(31)) AND (A$ < CHR$(123)) THEN GOSUB 1268: GOTO 1231 
1240 IF LEN(A$) = 2 THEN GOSUB 1257: GOTO 1231 

1241 GOSUB 1244 

1242 IF QUIT$ = "N" THEN GOTO 1231 

1243 RETURN 

1244 REM 

1245 REM *x*x* DECODE KEY IN xxx 

1246 REM 

1247 1F (AS = CHR$(168)) OR (A$ = CHR$(173)) OR (A$ = CHR$(128)) THEN GOSUB 1268 


1248 IF A$ = CHR$(9) THEN GOSUB 1392: REM TAB 

1249 IF A$ = CHR$(16) THEN GOSUB 1723: REM PRINT SPECIALTIES 
1250 IF A$ = CHR$(20) THEN GOSUB 1407: REM TAB SET 

1251 IF A$ = CHR$(17) THEN GOSUB 1358: REM QUIT 

1252 IF A$ = CHR$(19) THEN GOSUB 1372: REM SAVE 

1253 IF A$ = CHR$(24) THEN GOSUB 1380: REM SAVE EXIT 

1254 IF A$ = CHR$(8) THEN GOSUB 1385: REM BACKSPACE 

1255 IF A$ = CHR$(13) THEN GOSUB 1456: REM RETORNO DE CARR 
1256 RETURN 

1257 REM 

1258 REM. *x*x* MOVIMIENTO DEL CURSOR x*oxx 

1259 REM 


1260 IF MID$(A$,2,1)="H" THEN GOSUB 1423 
1261 IF MID$(A$,2,1)="P" THEN GOSUB 1434 
1262 IF MID$(A$,2,1)="K" THEN GOSUB 1450 
1263 IF MID$(A$,2,1)="M" THEN GOSUB 1442 
1264 IF DLET$ = "S" THEN GOTO 1267 
1265 IF MID$(A$,2,1)="R" THEN GOSUB 1463 
1266 IF MID$(A$,2,1)="S" THEN GOSUB 1606 
1267 RETURN 
1268 REM 
1269 REM **x* GRABAR EN MEMORIA xxx 
1270 REM 
1271 IF (COL > ROWEND(ROWNUM)) AND (ROWMEM(ROWNUM+1) > O) THEN GOTO 1285 
1272 IF (ROWNUM=1) AND (COL=1) THEN LET ROWMEM(ROWNUM) = 1: GOTO 1275 
1273 IF COL = 1 THEN LET ROWMEM(ROWNUM) = ROWMEM(ROWNUM-1) + ROWEND ( ROWNUM- 1 ) 
1274 IF (ROW = 20) AND (COL = 80) AND (PAGE = 10) THEN GOTO 1285 
1275 MEMLOC = ROWMEM(ROWNUM) + COL - 1 
1276 LOCATE 25,5: PRINT MEMLOC: LOCATE ROW, COL 
1277 POKE MEMLOC, ASC(A$) 
1278 IF (ROWMEM(ROWNUM+1) = O) AND (COL > ROWEND(ROWNUM) ) 
THEN POKE MEMLOC + 1, 234 
1279 IF COL > ROWEND(ROWNUM) THEN LET ROWEND(ROWNUM) = COL 
1280 IF (COL = 80) AND (ROW = 20) THEN GOSUB 1286: LET ROW = 20 
1281 IF (COL = 80) AND (A$ <> CHR$(32)) THEN GOSUB 1293 
1282 PRINT A$; : 
1283 IF (A$ = CHR$(20)) AND (ROW = 20) THEN GOSUB 1286: GOTO 1285 
1284 IF A$ = CHR$(20) THEN PRINT CHR$(13); 
1285 RETURN 
1286 REMx 
1287 REM* CLEAN PAGE 
1288 REMx 
1289 LET ENDTEXTS$ = "S" 
1290 IF PAGE < 10 THEN LET PAGE = PAGE + 1: GOSUB 1168: GOTO 1292 
1291 LOCATE 25,1: PRINT "NO PAGINAS MAS";CHR$(7); 
1292 RETURN 
1293 REM 
1294 REM *x*x* EDICION DE LINEA (PARA GRABAR) ok 
1295 REM 
1296 GOSUB 1335 
1297 K = 80 - I + 1 
1298 IF ROW = 20 THEN GOTO 1303 


1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 


LOCATE ROW, K 
FOR J = K TO 80 
PRINT ""; 
NEXT J 
IF ROW = 20 THEN LOCATE 1,1 ELSE LOCATE ROW+1,1 
FOR J = 1 TO I - 2 
LET INCHAR = PEEK(MEMLOC + J + 1) 
PRINT CHR$(INCHAR) ; 
NEXT 
COL = POS(0) 
ROWEND(ROWNUM) = 
ROWMEM ( ROWNUM+1 ) 
ROWEND ( ROWNUM+1 ) 
RETURN 
REM 
REM x*xx* UNA PAGINA HACIA ATRAS xx 
REM 
IF PAGE = 1 THEN GOTO 1322 
PAGE = PAGE - 1 
ROWNUM = FNROW(1, PAGE) 
LET MEMLOC = ROWMEM(ROWNUM) 
LET ENDTEXT$ = '"N” 
GOSUB 1168 
RETURN 
REM 
REM *x** UNA PAGINA HACIA ADELANTE xxx 
REM 
IF PAGE = 10 THEN GOTO 1334 
ROWNUM = FNROW(1,PAGE) 
IF ROWMEM(ROWNUM+1) = O THEN GOTO 1334 
PAGE = PAGE + 1 
ROWNUM = FNROW(1,PAGE) 
LET MEMLOC = ROWMEM(ROWNUM) 
LET ENDTEXTS = "N" 
GOSUB 1168 
RETURN 
REM 
REM *x*x* BUSCAR PARA ESPACIO x*xx* 
REM 
LET SPCFND$ = "N" 
LETI=0 
WHILE SPCFND$ = "N"” 


ROWMEM(ROWNUM) + ROWEND ( ROWNUM) 
COL 


"nu A 


LET INCHAR = PEEK(MEMLOC) 
IF INCHAR = 32 THEN LET SPCFND$ = "S" 
MEMLOC = MEMLOC - 1 
MS E e | 
WEND 
RETURN 
REM 
REM *** EDICION DE LINEA (PARA IMPRIMIR) *x*x 


REM 
GOSUB 1335 
KE hd 
LOCATE ROW, K 
FOR J = K TO 80 
ERÍNT:" "3 
NEXT J 
MEMLOC = MEMLOC + 1 
RETURN 
REM 
REM x*xx*x*x QUIT x*x*xk 
REM 
SCREEN 0,0,1,1 
CLS 
LOCATE 2,34: PRINT "*x*x* QUIT *xx";CHR$(7) 
LOCATE 5,26: PRINT "-AVISO - TEXTO WILL BE LOST!” 
LOCATE 7,26: PRINT "(ESTAS SEGURO (S/N)"; 
INPUT R$ 


PROGRAMAS 


1367 IF R$ = "S” THEN LET QUIT$ = "S": GOTO 1371 
1368 IF R$ <> "N" THEN GOTO 1365 

1369 SCREEN 0,0,0,0 

1370 LOCATE 1,1,1 

1371 RETURN 

1372 REM 

1373 REM *x** GRABAR TEXTO *xkx 

1374 REM 

1375 SCREEN 0,0,1,1 

1376 GOSUB 1141: REM * SAVE TEXT 

1377 SCREEN 0,0,0,0 

1378 LOCATE 1,1,1 

1379 RETURN 

1380 REM ' 

1381 REM *x*x* GRABAR TEXTO Y SALIDA xxx 
1382 GOSUB 1141 

1383 LET QUIT$ = "S" 


1384 RETURN 

1385 REM 

1386 REM *x*x*x BACKSPACE *xxk 

1387 REM 

1388 PRINT CHR$(29);: PRINT " ";: PRINT CHR$(29); 


1389 MEMLOC = ROWMEM(ROWNUM) + COL - 2 

1390 POKE MEMLOC, 32 

1391 RETURN 

1392 REM 

1393 REM *** TAB **kx* 

1394 REM 

1395 IF (ROWMEM(ROWNUM) <> 0) OR (COL <> 1) THEN GOTO 1404 
1396 IF ROW = 1 THEN LET MEMLOC = 1 ELSE MEMLOC = ROWMEM(ROWNUM-1) + ROWEND(ROWN 
UM-1) 

1397 LET ROWMEM(ROWNUM) = MEMLOC: LET ROWEND(ROWNUM) = TLEN 
1398 FOR I = 1 TO TLEN 

1399 POKE MEMLOC, 32 

1400  MEMLOC = MEMLOC + 1 

1401 NEXT 1 

1402 LOCATE ROW, TLEN 

1403 GOTO 1406 

1404 MEMLOC = ROWMEM(ROWNUM) + COL 

1405 IF ROWEND(ROWNUM) > COL + TLEN THEN LOCATE ROW, COL+TLEN ELSE LOCATE ROW, ROW 
END ( ROWNUM) 

1406 RETURN 

1407 REM 

1408 REM *** TAB SET x*x*x* 

1409 REM 

1410 LOCATE 25,1: PRINT “INPUT TAB LENGTH: ”; 
1411 ON ERROR GOTO 1418 

1412 INPUT TLEN 

1413 ON ERROR GOTO O 

1414 IF TLEN > 50 THEN GOTO 1410 

1415 LOCATE 25,1: PRINT SPACE$(35) 

1416 LOCATE ROW, COL 

1417 RETURN 

1418 REM 

1419 REM *** TAB SET ERROR *x** 

1420 REM 

1421 LOCATE 25,1: PRINT SPACE$(35) 

1422 RESUME 1410 

1423 REM 

1424 REM *** CURSOR ARRIBA *Xx 

1425 REM 

1426 IF (ROW = 1) AND (PAGE = 1) THEN GOTO 1433 
1427 IF ROW > 1 THEN GOTO 1430 

1428 GOSUB 1313: REM PAGE BACK 

1429 LET ROW = 21 

1430 LET ROW = ROW-1 

1431 ROWNUM = FNROW(ROW, PAGE) 


1432 


IF ROWEND(ROWNUM) > COL THEN LOCATE ROW, COL ELSE LOCATE ROW, ROWEND ( ROWNUM) 


1433 RETURN 

1434 REM 

1435 REM x*x*x* CURSOR ABAJO xxx 

1438 REM 

1437 IF (ROW = 20) AND (ROWMEM(ROWNUM+1) = 0) THEN GOTO 1441 
1438 IF (ROW = 20) AND (ROWMEM(ROWNUM+1) <> 0) THEN GOSUB 1324: GOTO 1441 
1439 IF ROWMEM(ROWNUM+1) = O THEN GOTO 1441 

1440 IF ROWEND(ROWNUM+1) > COL THEN LOCATE ROW+1,COL ELSE LOCATE ROW+1,ROWEND(RO 
WNUM+1) 

1441 RETURN 

1442 REM 

1443 REM *** CURSOR DERECHO *x*x 

1444 REM 

1445 IF ROWEND(ROWNUM) > COL THEN PRINT CHR$(28);: GOTO 1449 
1446 IF ROW = 20 THEN GOTO 1449 

1447 IF ROWMEM(ROWNUM+1) <> O THEN LET ROW=ROW+1: LOCATE ROW, 1: GOTO 1449 
1448 IF ROWEND(ROWNUM) = COL THEN PRINT CHR$(28); 

1449 RETURN 

1450 REMx 

1451 REM* CURSOR IZQUIERDO 

1452 REMx 

1453 IF COL > 1 THEN PRINT CHR$(29);: GOTO 1455 

1454 IF ROW <> 1 THEN LOCATE ROW-1,ROWEND( ROWNUM- 1) 

1455 RETURN 

14586 REM 

1457 REM 

1458 REM *x*x* RETORNO DE CARRO x*xx 

1459 REM 

1460 LET A$ = CHR$(20) 

1461 IF COL+1 > ROWEND(ROWNUM) THEN GOSUB 1268 ELSE GOSUB 1434 
1462 RETURN 

1463 REMx 

1464 REM* INSERT FUNCTION 

1465 REMx 

1466 LET INSERT$ = "S" 

1467 START = ROWMEM(ROWNUM) + COL 

1468 LET NUMIN = O 

1469 GOSUB 1479 

1470 LET ROW = CSRLIN 

1471 LET COL = POS(0) 

1472 LOCATE 25,67: PRINT "R=";ROW;" C=";COL 

1473 LOCATE ROW, COL 

1474 A$ = INKEY$: IF A$ = "" THEN GOTO 1474 

1475 IF (A$ > CHR$(31)) AND (A$ < CHR$(123)) THEN GOSUB 1506: GOTO 1470 
1476 GOSUB 1538 

1477 IF INSERT$ = "S”" THEN GOTO 1470 

1478 RETURN 

1479 REMx 

1480 REM* BUILD INSERT SCREEN á 
1481 REMX 

1482 LOCATE 25,1: PRINT "ESPERE PARA INSERT..." 

1483 SCREEN 0,0,1,0 

1484 CLS 

1485 MEMLOC = ROWMEM(ROWNUM) 

1486 FOR I = 1 TO COL - 1 

1487 LET INCHAR = PEEK(MEMLOC) 

14838 PRINT CHR$(INCHAR) ; 

1489 MEMLOC = MEMLOC + 1 

1490 NEXT 1 

1491 LET TP = 1 

1492 WHILE (I < 80) AND (INCHAR <> 234) AND (INCHAR <> 13) 
1493 LET INCHAR = PEEK(MEMLOC) 

1494 LOCATE 20,1: PRINT CHR$(INCHAR) 

1495 MEMLOC = MEMLOC + 1 

1496 LND AOS 

1497 WEND 
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1498 LOCATE 21,1: PRINT STRING$(80,"_”) 

1499 LOCATE "2351: "PRINT-"LENSERT.SCREEN"; 

1500 LOCATE 22,30: PRINT CHR$(24);CHR$(25);CHR$(27);CHR$(26);" - cursor mvmt*; 
1501 LOCATE 23,30: PRINT "Ctrl T - TAB SET"; 

1502 LOCATE 24,30: PRINT "Ctrl R - RECOMPOSE - EXIT"; 

1503 SCREEN 0,0,1,1 

1504 LOCATE 1,COL, 1 

1505 RETURN 

1506 REMXx 

1507 REMx GRABACIÓN EN INSERT ARRAY 

1508 REMx 

1509 NUMIN = NUMIN + 1 

1510 IF NUMIN > 1440 THEN LOCATE 25,1: PRINT "BUFFER FULL";CHR$(7);: GOTO 1515 
1511 LET BUFF$(NUMIN) = A$ 

1512 IF (COL = 80) AND (A$ <> " ") THEN GOSUB 1516: GOTO 1515 
1513 PRINT A$; 

1514 IF A$ = CHBR$(20) THEN PRINT CHR$(13); 

1515 RETURN 

1516 REMx 

1517 REMx EDICION DE LINEA PARA ARRAY 

1518 REMx 

1519 LET SPCFND$ = "N" 

1520 LET I1=0 

1521 WHILE SPCFND$ = "N" 


1522 NUMIN = NUMIN - 1 

1523 IF BUFF$(NUMIN) = " " THEN LET SPCFND$ = "S” 
1524 1 e a 

1525 WEND 


1526 LOCATE ROW+1, 1 

1527 FOR J = 1 TO 1 

1528 PRINT BUFF$(NUMIN + J); 
1529 NEXT J 

1530 K = 80 - I 

1531 LOCATE ROW, K 

1532 FOR J = K TO 80 

1533 PRINT-*:5 

1534 NEXT J 

1535 NUMIN = NUMIN + 1 

1536 LOCATE ROW+1, I+1 

1537 RETURN 

1538 REMx 

1539 REMx SPECIALITATES 

1540 REMx 

1541 IF (A$ = CHR$(168)) OR (A$ = CHR$(173)) OR (A$ = CHR$(128)) THEN GOSUB 1506 


1542 IF A$ = CHR$(20) THEN GOSUB 1407 
1543 IF A$ = CHR$(9) THEN GOSUB 1548 

1544 IF A$ = CHR$(8) THEN GOSUB 1558 

1545 IF A$ = CHR$(18) THEN GOSUB 1572 
1546 IF A$ = CHR$(13) THEN GOSUB 1566 
1547 RETURN 

1548 REMx 

1549 REMx TAB 

1550 REMX 


1551 IF COL <> 1 THEN GOTO 1557 
1552 FOR 1 = 1 TO TLEN 


1553 NOUMIN = NUMIN + 1 
1554 LET BUFF$(NUMIN) = ” ' 
1555 PRINT * *; 

1556 NEXT 1 

1557 RETURN 

1558 REMx 

1559 REM*  BACKSPACE 

1560 REMx 


1561 IF NUMIN = O THEN GOTO 1565 ; 
1562 PRINT CHR$(29);: PRINT " ";: PRINT CHR$(29); 
1563 LET BUFF$(NUMIN) = " ” 

1564 NUMIN = NUMIN - 1 

1565 RETURN 


1566 REMx 

1567 REM* RETORNO DE CARRO 

1568 REMx 

1569 LET A$ = CHR$(20) 

1570 GOSUB 1506 

1571 RETURN 

1572 REMx 

1573 REMx RECOMPOSE (INSERT) 

1574 REMx 

1575 IF NUMIN = O THEN COTO 1600 

1576 LET LASTPAGE = PAGE 

1577 LET ROW = 1: LET PAGE = 1 

1578 LET NO$ = "S" 

1579 CLS 

1580 LOCATE 1,1: PRINT "ESPERE POR FAVOR... (RECOMPOSICION)" 
1581 GOSUB 1156 

1582 MEMLOC = TOTAL + 1 

1583 IF MEMLOC < START + NUMIN THEN MEMLOC = START + NUMIN - 1: LET NO$ = "N" 
1584 FOR I = START-1 TO TOTAL 


1585 LET INCHAR = PEEK(I) 
1586 POKE MEMLOC, INCHAR 
1587 MEMLOC = MEMLOC + 1 


1538 NEXT 1 

1589 LET MEMLOC = START 

1590 FOR I = 1 TO NUMIN 

1591 POKE START + I - 2, ASC(BUFF$(]1)) 

1592 NEXT I 

1593 IF NO$ = "N" THEN GOTO 1599 

1594 MEMLOC = START + NUMIN - 2 

1595 FOR I = 1 TO TOTAL - START + 2 

1596 LET INCHAR = PEEK(TOTAL + 1) 

1597 POKE MEMLOC + I, INCHAR 

1598 NEXT I 

1599 LET PAGE - LASTPAGE 

1600 LET INSERT$ = "N" 

1601 LET ENDTEXTS = "N" 

1602 ROWNUM = FNROW(1,PAGE) 

1603 LET MEMLOC = ROWMEM(ROWNUM) 

1604 GOSUB 1168 

1605 RETURN 

1606 REMx 

1607 REMx DELETE FUNCTION 

1608 REMx 

1609 GOSUB 1612 

1610 GOSUB 1626 

1611 RETURN 

1612 REMx 

1613 REMx BUILD DELETE SCREEN 

1614 REMx 

1815 FOR LI = 22 TO 25 

1616 LOCATE 1,1: PRINT SPACE$(80); 

1617 NEXT 1 

1618 LOCATE 23,1: PRINT "DELETE SCREEN"; 
1619 LOCATE 22,35: PRINT "Ctrl B COMENZAR BLK"; 
1620 LOCATE 23,35: PRINT "Ctrl T TERMINAR BLK"; 
1821 LOCATE 24,35: PRINT "Ctrl W - CAMBIAR BLK"; 
1622 LOCATE 22,60: PRINT "Ctrl R - RECOMPOSE"; 
1623 LOCATE 23,60: PRINT "Ctrl Q - ABORT - EXIT"; 
1624 LOCATE ROW, COL 

1625 RETURN 

1626 REMx 

1627 REMXx SET FLAGS 

1628 REMx 

1629 LET STARTFLAG = O: LET ENDFLAG = O 

1830 LET DLETS = "S" 

1631 LET INITPAGE = PAGE 

1632 LET ROW = CSRLIN 

1633 LET COL = POS(0) 
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1634 LOCATE 25,67: PRINT "R=";ROW;" C=";COL 

1635 LOCATE ROW, COL 

1636 ROWNUM = FNROW(ROW, PAGE) 

1637 A$ = INKEY$: IF A$ = "" THEN GOTO 1637 

1638 LOCATE 25,1: PRINT SPACE$(40): LOCATE ROW, COL 
1639 IF LEN(A$) = 2 THEN GOSUB 1257 ELSE GOSUB 1642 
1640 IF DLET$ = "S" THEN GOTO 1632 


1641 RETURN 

1642 REMx 

1643 REM* DECODE KEY IN 

1644 REMx 

1645 IF A$ = CHR$(2) THEN GOSUB 1651: REM BEGIN BLOCK 
1646 IF A$ = CHR$(20) THEN GOSUB 1657: REM TERMINATE BLOCK 
1647 IF A$ = CHR$(18) THEN GOSUB 1663: REM RECOMPOSE 
1648 .IF A$ = CHR$(17) THEN GOSUB 1694: REM QUIT 

1649 IF A$ = CHR$(23) THEN GOSUB 1694: REM CAMBIAR 
1650 RETURN 

1651 REMx 

1652 REMx SET BEGIN FLAG 

1653 REMx 


1654 STARTFLAG = ROWMEM(ROWNUM) + COL - 1 

1655 PRINT CHR$(26): LOCATE ROW, COL 

1656 RETURN 

1657 REMx 

1658 REMx SET END FLAG 

1659 REMx 

1660 ENDFLAG = ROWMEM(ROWNUM) + COL - 1 

1661 PRINT CHR$(27): LOCATE ROW, COL 

1662 RETURN 

1663 REMx 

1664 REMx*  RECOMPOSE 

1665 REMx 

1666 LOCATE 25,1: PRINT SPACE$(30) 

1667 IF STARTFLAG = O THEN LOCATE 25,1: PRINT "START FLAG NOT SET": GOTO 1692 
1668 IF ENDFLAG = O THEN LOCATE 25,1: PRINT "END FLAG NOT SET": GOTO 1692 
1669 IF ENDFLAG < STARTFLAG THEN LOCATE 25,1: PRINT "END MENOS QUE START": GOTO 
1692 

1670 LET ROW = 1: LET PAGE = 1 

1671 CLS 


1672 LOCATE 1,1: PRINT "ESPERE POR FAVOR... (RECOMPOSICION)" 
1673 GOSUB 1156 


1674 PRINT: PRINT STARTFLAG; ENDFLAG; TOTAL 
1675 FOR I = ENDFLAG + 1 TO TOTAL 


1676 LET INCHAR = PEEK(I) 

1677 POKE STARTFLAG, INCHAR 
1678 PRINT CHR$(INCHAR) ; 

1679 STARTFLAG = STARTFLAG + ¿1 
1680 NEXT I 

1681 STOP 


1682 LET DLET$ = "N" 

1683 LET PAGE = INITPAGE 

1684 LET ENDTEXTS$ = "N” 

1685 ROWNUM = FNROW(1, PAGE) 

1686 LET MEMLOC = ROWMEM(ROWNUM) 

1687 GOSUB 1168 

1688 FOR I = ROWNUM TO 200 

1689 LET ROWMEM(I) = O: LET ROWEND(I) = O: 
1690 NEXT I 

1691 LET COL = 1 

1692 LOCATE ROW, COL 

1693 RETURN 

1694 REMx 

1695 REM*  QUIT 

1696 RIEM* 

1697 TF A$ = CHR$(23) THEN GOTO 1703 
1698 LET DLET$ = "N" 

II POR 12-22 7025 

1700 LOCATE 1,1: PRINT SPACE$(80); 


1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
17 
5 De de 1 
ELE 
1714 
17115 
1716 
a 
1718 
1719 
1720 
LFDE 
1722 
1723 
1724 
1725 
1726 
LTD 
1728 
1729 
1730 
179 
1732 
UTIS 
1734 
ID 
1736 
1797 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
IASTO) 
1751 
1752 
ETDS 
1754 
IDO 
1756 
1757 
1758 
11759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 


NEXT I 

GOSUB 1200 

IF STARTFLAG <> O THEN LET NUMIN 
IF ENDFLAG <> O THEN LET NUMIN = 
LET STARTFLAG = O: LET ENDFLAG = 


= STARTFLAG: GOSUB 1707 
ENDFLAG: GOSUB 1707 
10) 


RETURN 

REMx* 

REM*x RESET SCREEN 
REMx 

LET ROW = 1 

ROWNUM = FNROW(ROW, PAGE) 


LET FOUND$ = "N” 

WHILE FOUND3 = '"N” 
IF NUMIN < ROWMEM(ROWNUM) THEN LET FOUND$ = "S" 
ROWNUM = ROWNUM + 1 

WEND 

ROWNUM = ROWNUM - 2 

COL = NUMIN - ROWMEM(ROWNUM) + 1 

INCHAR = PEEK(NUMIN) 

ROW = ROWNUM - (PAGE - 1) x* 20 

LOCATE ROW, COL: PRINT CHR$(INCHAR) 


RETURN 

REM 

REM *x*x* PRINT SPECIALTIES *x*x 
REM 

GOSUB 1729 

GOSUB 1747 

RETURN 

REMx 

REMx BUILD PRINT SCREEN 
REMx 

FOR I = 22 TO 25 


LOCATE 1,1: PRINT SPACE$(80); 
NEXT I 


LOCATE 23,1: PRINT "P R IN T"; 

LOCATE 22,15: PRINT “Ctrl B - SET EMPHASIZE"; 
LOCATE 23,15: PRINT "Ctrl T - CANCEL EMPHA"; 
LOCATE 24,15: PRINT “Ctrl W - SET UNDERLN"; 
LOCATE 25,15: PRINT "Ctrl R - CANCEL UNDRLN"; 
LOCATE 22,42: PRINT “Ctrl S - SET ITALC"; 
LOCATE 23,42: PRINT “Ctrl Z - CANCEL ITALIC”; 
LOCATE 24,42: PRINT "Ctrl E - SET CENTER”; 
LOCATE 25,42: PRINT "Ctrl D - CANCEL CENTER"; 


LOCATE 25,1: PRINT "Ctrl, X - EXIT"; 
LOCATE ROW, COL 


RETURN 

REMx* 

REM* SET FLAGS 
REMx* 

LET PRNT$ = "S" 


LET ROW = CSRLIN 

LET COL = POS(0) 

LOCATE 25,67: PRINT "R=";ROW;" C=";COL 

LOCATE ROW, COL 

ROWNUM = FNROW(ROW, PAGE) 

AS = INKEY$: IF A$ = "" THEN GOTO 1756 

IF LEN(A$) = 2 THEN GOSUB 1257 ELSE GOSUB 1760 

IF PRNT$ = "3" THEN GOTO 1751 

RETURN 

REMx 

REM* DECODE KEY IN 

REM* 

IF A$ = CHR$(24) THEN GOSUB 1788: GOTO 1778: REM EXIT 
GOSUB 1779 

IF ISSPACE$ = "N" THEN GOTO 1778 

LET CHAR = O 

IF A$ = CHR$(2) THEN LET CHAR = 1: REM BEGIN EMPH 
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1768 IF A$ = CHR$(20) THEN LET CHAR = 2: REM END EMPB 

1769 IF A$ = CHR$(23) THEN LET CHAR = 220: REM BEGIN UNDRLN 
1770 IF A$ = CHR$(18) THEN LET CHAR = 223: REM END UNDERLN 
1771 IF A$ = CHR$(19) THEN LET CHAR = 221: REM SET ITALIC 
1772 IF A$ = CHR$(26) THEN LET CHAR = 222: REM END ITALIC 
1773 IF A$ = CHR$(5) THEN LET CHAR = 200: REM SET CCENTER 
1774 IF A$ = CHR$(4) THEN LET CHAR = 201: REM END CENTER 
1775 IF CHAR = O THEN GOTO 1778 

1776 LOCATE ROW,COL: PRINT CHR$(CHAR)';CHR$(29); 

1777 POKE MEMNUM, CHAR 


1778 RETURN 
1779 REM 


1780 REM **x* CHECK POS x*xx 

1781 REM 

1782 LET ISSPACE$ = "N"” 

1783 ROWNUM = FNROW(ROW, PAGE) 

1784 MEMNUM = ROWMEM(ROWNUM) + COL - 1 

1785 LET INCHAR = PEEK(MEMNUM) 

1786 IF INCHAR = 32 THEN LET ISSPACE$ = "S" 
1787 RETURN 

1788 REM 

1789 REM *** EXIT xxx 

1790 REM 

1791 LET PRNTS = "N" 

1792 FOR I = 22 TO 25 

1793 PRINT SPACE$(80) 

1794 NEXT 1 

1795 GOSUB 1200 

1796 RETURN 

1797 RE MASSSO SOS SS Said SdSESS SOS EjOlEO Ol HOJOKk 
1798 REMx FILE MANAGEMENT *k 
1799 REMOS lSlSlSlSSIESSIESjOSjOESIESSjSlSlSlESjSlS SES jOlESjOlOIOKOK 
1800 REMx 

1801 REMx 

1802 REM* ADD FILE NAME 

1803 REMx 

1804 LET EXIST$ = "N" 

1805 FOR 1 = 1 TO NUMFILES. 

1806 IF FILE.NAME$(1) = FILES THEN LET EXIST$ = "S" 
1807 NEXT 1 

1808 IF EXIST$ = "S" THEN GOTO 1815 

1809 OPEN "FILES.ED" FOR APPEND AS $1 

1810 WRITE +1, FILES, TOTAL 

1811 CLOSE $1 

1812 NUMFILES = NUMFILES + 1 

1813 LET FILE. NAMES(NUMFILES) = FILES 

1814 LET FILE. LEN(NUMFILES) = TOTAL 

1815 RETURN 

1816 REMx 

1817 REM* RENOMBRAR FICHERO 

1818 REMx 

1819 CLS 

1820 GOSUB 1919 

1821 LOCATE 1,32: PRINT "RENOMBRAR FICHERO" 
1822 LOCATE 2,31: PRINT “_ Ñ 
1823 LOCATE 4,1: PRINT "NOMBRE DE FICHERO CAMBIAR: "; 
1824 GOSUB 1946 

1825 LET FILE.O$ = INFILES 

1826 LOCATE 6,1: PRINT "NOMBRE NUEVO: "; 
1827 GOSUB 1946 

1828 LET FILE.N$ = INFILES 

1829 ON ERROR GOTO 1892 

1830 BLOAD FILE.OS$ 

1831 ON ERROR GOTO O 

1832 LET B$ = ".BAS" 

1833 FILE.O.B$ = FILE.O$ + B$ 

1834 FILE.N.B$ FILE.N$ + B$ 


1835 
1836 
1837 
1838 
1839 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
1847 
1848 
1849 
1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1858 
1859 
1860 
1861 
1862 
1863 
1864 
1865 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 


1884 
1885 


1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1397 
1898 
1899 
1900 
1901 


NAME FILE.O.B$ AS FILE.N.B$ 
GOSUB 1899 


LOCATE 9,5: PRINT FILE.O$;" ES ";FILE.N$;" 


LOCATE 10,5: PRINT "(ENTER A CONTINUAR)" 
LET C$ = INPUT$(1) 

RETURN 

REMx 

REM* COPIAR FICHERO 

REMx 

CLS 

GOSUB 1919 

LOCATE 1,33: PRINT "COPIAR FICHERO" 
LOCATE 2,32: PRINT " Ñ 


AHORA. " 


LOCATE 4,1: PRINT "NOMBRE DE FICHERO COPIAR: ”; 


GOSUB 1946 

LET FILE.O$ = INFILE$ 

LOCATE 6,1: PRINT "NOMBRE NUEVO: ”; 
GOSUB 1946 

LET FILE.N$ = INFILE$ 

ON ERROR GOTO 1892 

BLOAD FILE.O$ 

ON ERROR GOTO O 


LET 1=1 

WHILE FILE.NAME$(1) <> FILE.O$ 
L= Bis 

WEND 

BSAVE FILE.N$, 0, FILE. LEN(1) 

GOSUB 1899 


LOCATE 9,5: PRINT FILE.O$;- ES ";FILE.N$;" 


LOCATE 10,5: PRINT "(ENTER A CONTINUAR)" 
LET C$ = INPUT$(1) 

RETURN 

REMx 

REM* BORRAR FICHERO 

REMx 

CLS 

GOSUB 1919 

LOCATE 1,33: PRINT "BORRAR FICHERO” 
LOCATE 2,32: PRINT " s 


AHORA. ” 


LOCATE 4,1: PRINT “NOMBRE DE FICHERO BORRAR: ”; 


GOSUB 1946 

LET FILE.O$ = INFILE$ 
ON ERROR GOTO 1892 

BLOAD FILE.O$ 

ON ERROR GOTO O 

LET B$ = ".BAS" 
FILE.O.B$ = FILE.O$ + B$ 


LOCATE 7,31: PRINT CHR$(7);CHR$(7); "(ESTAS SEGURO (S/N)"; 


INPUT R$ 

TF R$ = "N" THEN GOTO 1891 
IF R$ <> "S" THEN GOTO 1882 
KILL FILE.O.B$ 

GOSUB 1899 


LOCATE 9,5: PRINT FILE.O$;"” ES MUERTE AHORA. " 


LOCATE 10,5: PRINT "(ENTER A CONTINUAR)" 


LET C$ = INPUT$(1) 

RETURN 

REMx 

REMx* NO FICHERO 

REMx 

LOCATE 7,5: PRINT FILE.O$;" NO EXISTE. * 
IF 0$ = "R" THEN RESUME 1838 

IF O$ = "C” THEN RESUME 1864 

IF O$ = "K" THEN RESUME 1889 
REMx 

REM* CAMBIAR FICHERO DE NOMBRES 


REMx 
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1902 FOR I = 1 TO NUMFILES 

1903 IF FILE.NAME$(1) = FILE.O$ THEN LET INUM = I 
1904 NEXT I 

1905 IF O$ <> "C" THEN GOTO 1909 

1906 NUMFILES = NUMFILES + 1 

1907 LET FILE. NAMES(NUMFILES) = FILE.N$ 

1908 LET FILE. LEN(NUMFILES) = FILE. LEN(INUM) 

1909 IF 0$ = "R" THEN LET FILE. NAME$(INUM) = FILE.N$ 
1910 IF 0$ = "K" THEN LET FILE. NAME$(INUM) = " " 
1911 KILL. "FILES. ED" 

1912 OPEN "FILES.ED" FOR OUTPUT AS +1 

1913 FOR J = 1 TO NUMFILES 


1914 IF FILE.NAME$(J) = " " THEN GOTO 1916 
1915 WRITE $1, FILE.NAME$(J), FILE. LEN(J) 
1916 NEXT J 


1917 CLOSE +$1 

1918 RETURN 

1919 REMx* 

1920 REM* LISTO DE FICHEROS 

1921 REMx 

1922 LOCATE 11,1: PRINT STRING$(80, "_") 

1923 LOCATE 12,1: PRINT "FICHEROS: 

1924 LET COL = 1: ROW = 14 

1925 LET 1 = 1 

1926 ON ERROR GOTO 1940 

1927 OPEN "FILES.ED" FOR INPUT AS $1 

1928 ON ERROR GOTO O 

1929 WHILE NOT EOF(1) 

1930 INPUT $1, FILE.NAME$(1), FILE. LEN(1) 

1931 LOCATE ROW, COL: PRINT FILE.NAME$S(I) 

1932 COL = COL + 20 

1933 IF COL > 61 THEN ROW = ROW + 1: LET COL = 1 
1934 ESA SL 

1935 WEND 

1936 CLOSE +1 

1937 LET NUMFILES = 1 - 1 ; 

1938 IF NUMFILES = O THEN LOCATE 12,13: PRINT "NINGUNO" 
1939 RETURN 

1940 REMx 

1941 REM* NO HAY LISTO 

1942 REMx 

1943 LOCATE 12,13: PRINT "NINGUNO" 

1944 LET NUMFILES = O 

1945 RESUME 1939 

1946 REMx 

1947 REMx INPUT FILE NAME 

1948 REMx 

1949 LET INFILE$ = "" 

1950 LET CHAR$ = INPUT$(1) 

1951 IF (ASC(CHAR$) = 13) THEN GOTO 1958 

1952 IF ASC(CHAR$) = 8 THEN GOSUB 1960: GOTO 1950 
1953 IF (ASC(CHAR$) < 48) OR (ASC(CHAR$) > 90) THEN GOTO 1950 
1954 IF (ASC(CHAR$) > 57) AND (ASC(CHAR$) < 65) THEN GOTO 1950 
1955 INFILE$ = INFILE$ + CHAR$ 

1956 PRINT CHAR$; 

1957 GOTO 1950 


1958 IF INFILE$ = "" THEN GOTO 1950 
1959 RETURN 

1960 REM 

1961 REM *x*x* BACKSPACE x*xx 

1962 REM 


1963 INLEN = LEN(INFILE$) 
1964 IF INLEN = O THEN GOTO 1967 


1965 PRINT CHR$(29);" ";CHR$(29); 
1966 INFILE$S = LEFT$(INFILES$, INLEN-1) 
1967 RETURN 


1968 REM 


1969 
1970 
1971 


1972. 


1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
1984 
1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
1998 
1999 
2000 
2001 
2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 


RE MAS SSSS OS lSlSlSlS SOS lSjS lO” lalalala Jak 


REMx IMPRIMIR FICHERO * 

RE MASSaSSSSlOS SEE SES” lalalala lalolololok 

REM 

REM 

GOSUB 1978: REM BUILD SCREEN 

GOSUB 1991: REM INPUT PARAMETERS 

GOSUB 2011 

RETURN 

REM 

REM **x* BUILD SCREEN kx 

REM 

CLS 

PRINT "INFORMACION DE IMPRIMIR PARA FICHERO: ";FILE$ 

LOCATE 4,10: PRINT “TYPO (CAMBIO? A QUE” 
LOCATE 5,10: PRINT ” DIN a NA e 
LOCATE 7,10: PRINT "LINEAS POR PAGINA (60) N"; 

LOCATE 8,10: PRINT “DRAFT O NLQ (D/N) D"; 

LOCATE 9,10: PRINT "PICA O ELITE (P/E) Pp"; 

LOCATE 10,10:PRINT “CONDENSED N"; 

LOCATE 15,10:PRINT "ESTA CORRECTO s"; 

RETURN 

REM 

REM xx INPUT INFO x*xx 

REM : 
LET LINES = 60: LET TYPO$ = "D": LET TYPE$ = "P": LET COND$ = "N" 


LOCATE 7,47: INPUT R$ 
IF R$ = "S" THEN LOCATE 7,57: INPUT LINES 


LOCATE 8,47: INPUT R$ 

IF R$ = "N" THEN LET TYPO$ = "N" 
LOCATE 9,47: INPUT R$ 

IF R$ = "E" THEN LET TYPE$ = "E" 
LOCATE 10,47: INPUT R$ 

IF R$ = "S" THEN LET COND$ = "Ss" 


GOSUB 1978 

LOCATE 7,57: PRINT LINES 

LOCATE 8,57: PRINT TYPO$ 

LOCATE 9,57: PRINT TYPE$ 

LOCATE 10,57: PRINT COND$ 

LOCATE 15,47: INPUT R$ 

IF R$ = "N" THEN GOSUB 1978: GOTO 1991 
RETURN 

REM 

REM *x** PRINT FICHERO x*xx 

REM 

CLS 

PRINT "PULSO RETORNO QUANDO ESTAS LISTO..." 
INPUT R$ 

LPRINT CHR$(27)+CHR$(64) 

LPRINT CHR$(27)+CHR$(67) 

IF TYPO$ = "D" THEN LPRINT CHR$(27)+CHR$(120)+CHR$(48) ELSE LPRINT CHR$(27) 


2 


+CHR$(120)+CHR$(49) 


2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
2029 
2030 


2031 
2032 


IF TYPE$ = "E" THEN LPRINT CHR$(27)+CHR$(77) ELSE LPRINT CHR$(27)+CHR$(80) 
IF (TYPO$ = "D") AND (COND$ = "S") THEN LPRINT CHR$(15) 
LET PAGE = 1 
LET MEMLOC = 1 
LET ENDPRINT$ = "N" 
LET COUNT = O 
PBUFF$ = "" 
WHILE ENDPRINT$ = "N” 
COUNT = COUNT + 1 
LET INCHAR = PEEK(MEMLOC) 
IF (INCHAR > 31) AND (INCHAR < 128) THEN LET PBUFF$=PBUFF$+CHR$( INCHARY 
ELSE GOSUB 2036 
IF COUNT = 80 THEN GOSUB 2049 
MEMLOC = MEMLOC + 1 
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WEND 

LPRINT PBUFF$ 

RETURN 

REM 

REM xxx PRINT SPECIALTIES x*xx*x* 

REM 

IF INCHAR = 20 THEN LPRINT PBUFF$:LET PBUFF$ = "":LET COUNT=0: GOTO 2048 
IF INCHAR = 1 THEN PBUFF$ = PBUFF$+CHR$(32)+CHR$(27)+CHR$(69) 

IF INCHAR = 2 THEN PBUFF3 = PBUFF$+CHR$(27) +CHR$(70)+CHR$(32) 

IF INCHAR = 220 THEN PBUFF$ = PBUFF$+CHR$(32)+CHR$(27)+CHR$(45)+"1" 
IF INCHAR = 223 THEN PBUFF$ = PBUFF$+CHR$(27)+CHR$(45)+"0"+CHR$(32) 
IF INCHAR = 221 THEN PBUFF3 = PBUFF$+CHR$(32)+CHR$(27)+CHR$(52) 

IF INCHAR = 222 THEN PBUFF$ = PBUFF$+CHR$(27)+CHR$(53)+CHR$(32) 

IF INCHÁR = 234 THEN LET ENDPRINTS = "S" 

IF INCHAR = 200 THEN GOSUB 2063 

RETURN 

REM 

REM x*x** WRAPAROUND x*x*x 

REM 


WHILE LOOK$ <> " ” 
LET LOOK$ = MID$(PBUFF$, COUNT, 1) 
COUNT = COUNT -1 
WEND 
COUNT = COUNT + 1 
PBUFF$ = LEFT$(PBUFF$, COUNT) 
LPRINT PBUFF$ 
MEMLOC = MEMLOC + COUNT - 80 
COUNT = O 
PBUFF3$ = "” 
RETURN 
REM 
REM *xx* CENTERING x*xx 
REM 
IF PBUFF$ > ”" THEN LPRINT E 
LET PBUFF$ = "" 
LET COUNT = O 
WHILE INCHAR <> 201 
LET INCHAR = PEEK(MEMLOC) 
IF INCHAR = 201 THEN GOTO 2074 
COUNT = COUNT + 1 
IF (INCHAR > 31) AND (INCHAR < 127) THEN PBUFF$ = PBUFF$3 +CHR$(INCHAR) 
ELSE GOSUB 2036 


WEND 

NUMSPACE = (80 - COUNT)/2 

PBUFF1$ = SPACE$(NUMSPACE) + PBUFF$ 

LPRINT PBUFF1$ 

LET COUNT = 0: LET PBUFF$ = "": LET PBUFF1$ = ”” 
RETURN 


NA vez presentados 
los «métodos predefi- 
nidos de desarrollo» y 
vistos, anteriormente, 
los elementos bási- 
cos del diseño de sis- 
temas, vamos a abor- 
dar algunas técnicas 
concretas utilizadas en el análisis de sis- 
temas informáticos (procesos de codifi- 
cación, diseño y manejo de ficheros, 
etcétera), así como las técnicas genéri- 
cas de control de proyectos (utilizables 
en el desarrollo de sistemas informáticos 
complejos). 

Respecto de los sistemas de códigos 
en concreto, debemos decir que es uno 
de los elementos más utilizados en cual- 
quier proceso informático por la propia 
naturaleza simplificadora, operativa y 
economizadora de medios de las técni- 
cas informáticas. En efecto, en una apli- 
cación informática «se codifica todo» 
(desde el propio nombre de la aplica- 
ción, de sus partes constituyentes y de 
los documentos en que se definen, hasta 
los menores elementos que intervienen 
en ella: ficheros, registros y sus campos, 
campos y áreas de un impreso de salida 
o de un formato de pantalla, etc.) y, aun- 
que la capacidad del ordenador supera 
o minimiza numerosas deficiencias, con- 
viene prestar alguna atención a la defi- 
nición y aplicación de los códigos, para 
su máxima eficacia. 


| sn $4 
2 Caracteristicas de los códigos 


Los códigos que se utilicen deben ade- 
cuarse a una serie de características tí- 
picas para que podamos asegurar su efi- 
cacia. Estas características se refieren 
tanto al propio código como a su utiliza- 
ción. Respecto al código en sí, se suelen 
señalar como necesarias las siguientes 


TECNICAS DE ANALISIS 


SISTEMAS DE CODIGOS 


características: conciso, claro, concreto, 
adecuado y flexible. 

a) El código ha de ser conciso, por- 
que su finalidad es representar de una 
manera cómoda a un elemento o enti- 
dad cualquiera y si es más complicado 
que la propia entidad a la que represen- 
ta pierde su eficacia como tal código. 
Sin embargo, normalmente, la concisión 
se consigue sacrificando claridad, por lo 
que hay que buscar un compromiso en- 
tre estas dos características. 

b) Por claridad del código entende- 
mos la facilidad con que se puede repro- 
ducir y memorizar. En efecto, un código 
formado por ocho dígitos, por ejemplo, 
difícilmente será retenido en la memoria 
por los usuarios (excepto en las combi- 
naciones más utilizadas, como sucede 
con los teléfonos). Por ello es útil dividir 
el código en zonas o intercalar signos de 
diferente tipo (números, letras, signos es- 
peciales, etc.) en la secuencia de carac- 
teres que forman el código. Además, en 
la transcripción de los códigos complica- 
dos se cometen más errores que en la re- 
producción de los sencillos. 

Cc) Es fundamental en el diseño y apli- 
cación de un código, también, que éste 
sea concreto, no ambiguo. En efecto, si 
en la designación de entidades diversas 
para uso de las personas puede no ser 
tan crítica esta cualidad, porque las per- 
sonas pueden suplir la ambigúedad con 
el resto de información que tienen del 
entorno o, en último caso, concretando 
mediante preguntas, en el caso de los 
códigos que deben ser utilizados por una 
máquina es fundamental la unicidad de 
cada código y la univocidad de su repre- 
sentación. 

d) Es importante, asimismo, que se 
preste alguna atención al hecho de que 
el código se adecúe al uso que se ha de 
hacer de él. No tiene ningún sentido, por 
ejemplo, preparar un código detallado 
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de cada uno de los elementos de un con- 
junto si posteriormente sólo se va a pro- 
cesar la información relativa a ellos por 
grupos o categorías. Por otro lado, no 
será igual un código que debe ser mane- 
jado por personas no habituadas al pro- 
ceso de datos (personas, por tanto, que 
deberán utilizar códigos simples y llenos 
de significado para ellas) que si el códi- 
go va a ser manejado casi exclusivamen- 
te dentro del proceso con ordenador o 
que si se busca especificamente que el 
código no sea fácilmente inteligible para 
las personas que incidentalmente lo pue- 
dan leer. 

e) Por último, hemos de asegurarnos 
de que el código utilizado sea lo más 
flexible posible en cuanto a su evolución 
durante el período de vida de la aplica- 
ción o sistema de que se trate. El conjun- 
to de elementos que referenciamos con 
un código puede crecer o decrecer y, en 
el primero de los casos indicados, apa- 
recen dos situaciones diferentes: que se 
añadan nuevos elementos o que alguno 
de los existentes se descomponga en 
dos. Todos estos casos se reducen a tres, 
desde el punto de vista operativo: supre- 
sión, adición o inserción de códigos. Res- 
pecto de la supresión de códigos, es ne- 
cesario tener en cuenta, solamente, que 
la eliminación no afecte al proceso de 
los códigos que permanecen; pueden 
surgir problemas, por ejemplo, si suprimi- 
do un código (y aparecido, por tanto, un 
«hueco» en la codificación) el sistema 
controla la detención o el cambio de 
proceso cuando se rompa la secuencia 
de los códigos presentes; otro conflicto 
surge si la aplicación examina la presen- 
cia de algunos elementos clave y el có- 
digo suprimido corresponde, precisa- 
mente, a uno de esos elementos. 


La adición de elementos al final de la 
serie codificada normalmente no crea 
demasiados problemas; hay que asegu- 
rarse de que existen códigos diferentes 
para todos los elementos presentes y fu- 
turos del conjunto a codificar: una típica 
situación de conflicto en esta línea se 
presenta cuando se ha previsto un dígito 
(dos, tres...) para designar los elementos 
de un conjunto o las situaciones posibles 
y aparecen, posteriormente, más de diez 
(cien, mil...) casos posibles. El problema 
más delicado se presenta con la inser- 
ción de códigos. En efecto, si no está pre- 


vista esta inserción en la propia estructu- 
ra del código, la situación es de solución 
complicada. Para permitir la inserción de 
elementos, existen varias técnicas, como 
veremos, pero en el fondo el procedi- 
miento es siempre el mismo: estableci- 
miento de un código con «huecos»; bien 
porque el código está organizado en se- 
ries (con códigos disponibles al final de 
cada serie), bien porque a todo lo largo 
de la secuencia de códigos existen es- 
pacios (un caso típico de este tipo está 
representado con la numeración de las 
líneas de un programa, que suelen nume- 
rarse de diez en diez o, incluso, de cien 
en cien al escribir el programa por prime- 
ra vez, para poder intercalar líneas pos- 
teriormente). 


' Elección de un código 


Para la adecuada elección de un có- 
digo deben seguirse una serie de pasos 
de definición del problema: 


— Ante todo, examinar la (o las) utili- 
dad(es) que va a tener el código; para 
ello conviene hacer una relación de to- 
das las aplicaciones en que va a ser uti- 
lizado dicho código, anotando junto a 
cada una de ellas el tipo de proceso en 
que va a ser aplicado el código y la ca- 
racterística clave (de entre las reseña- 
das anteriormente) que deben cumplir, 
en consecuencia, el código. 

— Estudiar el número dé elementos o 
situaciones de que consta el conjunto a 
codificar. Es tundamental tener en cuen- 
ta no sólo la situación actual, sino la evo- 
lución futura previsible, para saber hasta 
qué punto es importante o no utilizar un 
código con posibilidad de ampliación o 
inserción, si se producirán bajas, etc. 

— Es útil, asimismo, examinar la distri- 
bución de los elementos por grupos y, 
por tanto, la futura distribución de los có- 
digos, cara a la construcción de series di- 
versas o el establecimiento de una única 
secuencia de códigos. 

— Como en cualquier otra decisión 
que esté relacionada con la estructura 
externa de la organización, conviene dis- 
cutir la codificación que se va a implan- 
tar con sus futuros usuarios. Incluso, si es 
posible, sería conveniente «probar» la 
codificación antes de su implantación 
definitiva. 


1) Programación 

modular en 
el lenguaje 
APL 


N APL es posible utili- 
zar la programación 
modular con tanta fa- 
cilidad y libertad 
como en PASCAL, 
pues también dispo- 
nemos de la posibili- 
dad de definir varia- 
bles locales y funciones con nombre y re- 
sultado. Veamos cómo se programaría 
en este lenguaje nuestro ejemplo del ca- 
pítulo anterior: 


VZ+MEDIA X 
Ze(+/X)+pX 
v 


VEJEMPLO 
[1] 'Dame los números que quieras' 
[2] 'La media es: ',*+MEDIA O 

v 


Observaremos lo siguiente: 


1. En APL se utiliza el triángulo inverti- 
do (signo «nabla») para entrar en el 
modo de definición de un programa, sub- 
rutina o función. Las líneas de las funcio- 
nes se numeran automáticamente de 
manera consecutiva, aunque es posible 
insertar líneas si se desea. La función ME- 
DIA recibe un argumento o parámetro 
(X), cuyo tipo no es preciso definir, y cal- 
cula un resultado (Z). Tanto X como Z son 


TECNICAS 
DE PROGRAMACIÓN 


variables locales, que no entran en con- 
flicto con otros usos externos de los mis- 
mos nombres. Como en PASCAL, tan sólo 
se considera global (es decir, accesible 
desde el exterior) el nombre de la propia 
función (MEDIA, en nuestro caso). 

2. La función tiene una sola linea eje- 
cutable y calcula la media sumando to- 
dos los elementos de X (lo que se consi- 
gue en APL con la expresión +/X) y divi- 
diendo por su número (la letra griega 
«rho», aplicada a una variable, nos de- 
vuelve el número de elementos de ésta). 

3. El programa principal se define 
igual que la función MEDIA. Su nombre es 
EJEMPLO, y no tiene resultado ni paráme- 
tros, ni variables locales de ningún tipo. 
Este programa consta de dos líneas. La 
primera escribe en la pantalla el mensa- 
je «Dame los números que quieras», pues 
en APL no es necesario utilizar palabras 
reservadas (como PRINT o WRITELN) para 
escribir un texto o resultado sobre la pan- 
talla. Basta con escribir el texto entreco- 
millado o la operación cuyo resultado 
queremos conocer. 

La segunda línea pide los valores de 
esos números (pues el cuadrado, en APL, 
significa que se desean obtener valores 
del teclado, todos los que se den hasta 
presionar la tecla ENTER). A continuación, 
la misma línea calcula la media de di- 
chos números y genera el mensaje final: 
«La media es:...». El simbolo representado 
por una T pequeña con un circulito en el 
palo vertical convierte el valor numérico 
de la media a la cadena de caracteres 
equivalente, para poderlo concatenar 
con el mensaje encerrado entre comi- 
llas. 

Por último, veamos cómo se ejecuta el 
programa anterior: 


so TECNICAS DE PROGRAMACIÓN 


EJEMPLO 
Dame los números que quieras 
D: 

TE2L 30353670900 
La media es: 5.5 


EJEMPLO 
Dame los números que quieras 
D: 

3 73182 =2.5 
La media es: 6 


mM Procedimientos 
y funciones 


En general, en casi todos los lenguajes 
de programación se distinguen dos cla- 
ses de subrutinas o módulos, que reciben 
el nombre de «funciones» y de «procedi- 
mientos». A veces, su tratamiento es bas- 
tante diferente. 

Una «función» es un subprograma que 
posee un resultado explícito, con el que 
se puede operar. Las funciones se invo- 
can utilizando su nombre dentro de una 
expresión. En este capítulo y el anterior 
hemos visto un ejemplo de una función 
PASCAL y de una función APL. En ambos 
casos servían para calcular la media. En 
ei lenguaje BASIC, sin embargo, el uso de 
las funciones está bastante restringido, y 
tan sólo se pueden utilizar las que el in- 
térprete o compilador conozca previa- 
mente o algunas otras, definidas por el 
programador, que tienen muchas restric- 
ciones. La más importante es que la de- 
finición de la función debe ser una expre- 
sión, por lo que no es posible construir 
funciones con más de una línea. Ade- 
más, para definir una función no se pue- 
den utilizar bloques secuenciales de ins- 
trucciones, ni sentencias de bucle, ni ins- 
trucciones condicionales, ni transferen- 
cias de ningún tipo. Por estas razones, el 
uso de las funciones BASIC no es muy 
grande. 

Para definir una función BASIC se utiliza 
la sentencia DEF FN. Veamos un ejemplo: 


LET Pl=3.1415927 

DEF FNAREACIR(R)=PIXRAR 

PRINT "Deme el radio del circulo” 
INPUT RADIO 

LET AREA=FNAREACIR(RADIO) 

PRINT "El área es”; AREA 


Obsérvese que también en BASIC se 
puede dar una lista de uno o varios argu- 
mentos O parámetros, escritos entre pa- 
réntesis detrás del nombre de la función, 
que siempre debe comenzar por las le- 
tras FN. Estos argumentos son locales, es 
decir, no interfieren con otros valores que 
puedan tener las variables del mismo 
nombre situadas fuera de la función. 
Además, la definición de la función debe 
preceder a cualquier uso que se haga 
de la misma. 

Veamos un ejemplo de la ejecución 
del programa anterior: 


RUN 
Deme el radio del circulo 


área es 28.274334 


Por el contrario, un «procedimiento» es 
un subprograma que no tiene resultado 
explícito, por lo que no se puede operar 
con él. Los procedimientos pueden cons- 
tar siempre de una o más instrucciones, 
que se ejecutan sucesivamente de una 
forma totalmente idéntica a las del pro- 
grama principal. Se trata, pues, de sec- 
ciones separadas de éste, que se agru- 
pan porque van a ser ejecutadas varias 
veces, invocándolas desde distintos lu- 
gares del programa principal o de otros 
subprogramas, o simplemente para faci- 
litar la legibilidad de nuestros programas 
o porque algún día podremos hacer uso 


de estos módulos en entornos de progra- 
mación diferentes. 

Todos los ejemplos de subprogramas 
BASIC que vimos en el capítulo anterior 
eran procedimientos. Como vimos allí, 
los procedimientos BASIC se invocan con 
la instrucción GOSUB y no permiten la po- 
sibilidad de definir variables locales o 
pasar parámetros. 

En PASCAL, un procedimiento se escri- 
be exactamente igual que un programa 
principal ordinario, sólo que en lugar de 
utilizar la palabra PROGRAM seguida de 
un nombre, se usa la palabra reservada 
PROCEDURE, que puede ir seguida de una 
lista de argumentos entre paréntesis, 
exactamente igual que en el caso de las 
funciones. El resto del procedimiento es 
semejante a un programa principal: hay 
una zona declarativa, donde pueden de- 
clararse los tipos de las variables utiliza- 
das en el procedimiento, y una zona eje- 
cutable, donde se colocan las instruccio- 
nes del procedimiento formando un blo- 
que BEGIN-END. 

Las variables declaradas dentro de un 
procedimiento se consideran locales a 
éste, y sus valores no entran en conflicto 
con los que pueden tener las variables del 
mismo nombre situadas fuera del proce- 
dimiento. Estas últimas son inaccesibles 
dentro del procedimiento. En cambio, las 
variables que hayan sido declaradas an- 
tes del procedimiento, en el programa 
que engloba a éste (el principal u otro 
módulo o subrutina cualquiera) tales que 
su nombre no coincida con el de una 
variable local, se consideran variables 
globales y pueden utilizarse dentro del 
procedimiento sin definición previa. 

Un procedimiento PASCAL se invoca 
desde el programa principal o desde 
otro módulo escribiendo simplemente su 
nombre. 

Veamos una versión del ejemplo del 
programa PASCAL del capítulo anterior 
que utiliza procedimientos. 


Program EJEMPLO; 
TYPE serie = array [1..10] of real; 
Function MEDIA (N:zinteger3 X:serie):real; 
(Subrutina que calcula la media 
de N números) 
VAR izinteger;z total:real; 
BEGIN 
total :=0; 
for iz=1 to N do total:=total+X[il; 
MEDIA: =total /N 
END; 
VAR datos:serie; 
PROCEDURE Leedatos (n:integer); 


VAR i:zinteger; 
BEGIN 
(Este procedimiento lee n números> 
writeln ("Escriba *,n,” números”); 
for iz=1 ton do readln(datos[iJ) 
END; 
PROCEDURE Escribevalor (v:real); 
BEGIN 
writeln (”El resultado es: ”,v) 
END; 
BEGIN 
Este programa lee 10 números 
y calcula su media) 
Leedatos(10); 
Escribevalor (MEDIA(10,datos)) 


Observemos en este programa las si- 
guientes peculiaridades: 


1. Dentro del programa principal, y en 
su sección declarativa, definimos dos 
procedimientos y una función. 

2. La primera declaración del progra- 
ma principal es la del tipo «serie», que se 
encuentra antes que la declaración de 
la función y de los dos procedimientos. 
Por tanto, esta variable es global y pue- 
den utilizarla tanto el programa principal, 
como la función MEDIA, como los dos 
procedimientos. 

3. La segunda declaración del pro- 
grama es la función MEDIA, en cuya des- 
cripción no vamos a entrar, pues es idén- 
tica a la del capítulo anterior. 

4. La tercera declaración del progra- 
ma EJEMPLO es la variable «datos», de 
tipo «serie». Por la posición que ocupa la 
declaración, esta variable no será acce- 
sible desde la función MEDIA (que no la 
necesita), pero sí desde los dos procedi- 
mientos. 

5. A continuación tenemos la decla- 
ración del procedimiento LEEDATOS, que 
tiene un parámetro, una variable local y 
una variable global (datos, definida pre- 
viamente en el programa principal). El 
procedimiento escribe un mensaje en la 
pantalla pidiendo el número de datos in- 
dicado por n, lee los valores y los coloca 
en la variable datos. 

6. Inmediatamente después se decla- 
ra el segundo procedimiento, ESCRIBEVA- 
LOR, que recibe un argumento real y que 
no hace otra cosa que escribirlo por una 
pantalla con un mensaje adecuado. 

7. Por último, aparece en nuestro 
ejemplo la parte ejecutable del progra- 
ma principal, que se limita a pedir los da- 
tos, calcular la media y escribir el re- 
sultado. 


SBASE lll 


A gestión de los gran- 
des volúmenes de 
datos constituye un 
problema que con 
frecuencia ha de re- 
solver el usuario de 
un ordenador perso- 
nal. Existen en el mer- 
cado actual gran cantidad de progra- 
mas que ayudan a la gestión de la infor- 
mación. Uno de ellos es el dBASE, progra- 
ma que constituye un gestor de bases de 
datos tipo relacional. 


Este programa servirá tanto para llevar 
una simple agenda telefónica como 
para gestionar complejas estructuras de 
ficheros y realizar programas de todo 
tipo en un tiempo muy corto. 

Por ello, incluye gran cantidad de fun- 
ciones y de comandos. 


APLICACIONES 


ID Ficheros DBASE lll 


En principio un fichero consta de un 
cierto número de registros; éstos pueden 
ser de longitud fija o variable, los campos 
de longitud variable o número, que per- 
miten cambiar cualquier número de re- 
gistro. 


aBASE 111 version 1.10 1BM/MSGDOS e... 


COFYRIGHMT (cc) ASMTON-TATE 1985 
LICENCIA DE TRABAJO. 
TODOS 1058 DERECMOS RESERVADOS. 


DBASE lll permite la importación de fi- 
cheros de otros programas, así como la 
conversión de ficheros de datos a fiche- 
ros de tipo texto que pueden ser leídos 
sin problemas por gran cantidad de pro- 
cesadores de textos y hojas de cálculo. 

Los campos pueden ser numéricos, al- 
fanuméricos, de fecha, lógicos y memo. 

Los numéricos y alfanuméricos son del 
mismo tipo que los habituales de otras 
aplicaciones y lenguajes. 

Los campos de tipo fecha almacenan 
fechas en el formato estándar 
MM/DD/AA, que es el que se utiliza en Es- 
tados Unidos. 

Los campos lógicos abarcan un valor 
verdadero (TRUE) o falso (FALSE). 


El número máximo de campos en un re- 
gistro es de 128, y aunque el número de 
registros es ilimitado, el de la longitud 
máxima es de 510 K, aproximadamente. 

El acceso a los ficheros puede hacerse 
tanto de forma secuencial como directa; 
en este último método existen dos for- 
mas: 

Uno, utilizando el fichero sin hacer nin- 
guna operación extra, y la segunda, in- 
dexando el fichero, es decir, creando un 
fichero de índices, con lo que el acceso 
de datos se reduce considerablemente, 
empleando un máximo de dos segundos 
para ficheros grandes. 


Asistente dBASE 111 
Posición Recuper ar 


En los ficheros pueden añadirse o inser- 
tarse ficheros, si bien esta última posibili- 


dad resulta algo lenta cuando los fiche- 
ros son grandes, ya que debe proporcio- 
nar un espacio en el fichero para el re- 
gistro nuevo a base de mover una parte 
de éste. 

A la hora de consultar los datos del 
dBASE lll, ofrece la posibilidad de crear 
formatos de informes de una manera sen- 
cilla, quedando abandonados estos for- 
matos por uno posterior. 

La salida de los datos puede hacerse 
indistintamente por la impresora, la pan- 
talla, e incluso las dos a la vez. 


NOMBRE 
DIRECCION 


TELEFONO 


El programa proporciona a la vez mul- 
titud de comandos interactivos para la 
confección de los formatos de pantalla 
por el propio usuario. 

El programa incluye también otras op- 
ciones sobre los ficheros como son el 
borrado de registros, la eliminación de 
registros borrados, la recuperación de 
éstos, la ordenación de ficheros por uno 
o varios campos, etc. 

Asimismo el programa contiene co- 
mandos interactivos con los que se pue- 
de realizar consultas al fichero, cálculos 
matemáticos y gestionar el sistema y el 
entorno del ordenador. l 

Claro está que todas estas opciones no 
sirven de gran ayuda si no se pudiesen 
almacenar para su uso posterior. 

Pues bien, dBASE lll ofrece al usuario un 
completísimo lenguaje de programación 
en el que se pueden utilizar todos los co- 
mandos normales del dBASE, incluyendo 
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órdenes, sentencias, etc., como 
WHILE... WEND, IF...THEN...ELSE, CASE..., que 
hacen de este lenguaje una muy poten- 
te herramienta del desarrollo del progra- 
ma. En conclusión, dBASE lll es uno de los 
más potentes paquetes de gestión de 
datos que existen en el mercado, que in- 
cluye numerosas ayudas al usuario. 


Paquete autoasistido 


La mayoría de los comandos y funcio- 
nes necesarias para empezar a trabajar 
con esta base de datos están asistidas 
de un programa de ayuda que guían al 
usuario en la realización de ficheros y en 
su manipulación. Junto a los dos discos 
que componen el sistema se facilita un 
tercero de ejemplos y enseñanza del pa- 
quete. 

El comando ASSIST abre paso a una se- 
rie de menús, ayuda a través de la cual 
el usuario puede ir creando ficheros e 


intoduciendo modificaciones dentro de 
él. 

Cuando se comete un error de sintaxis, 
el ordenador lo indica inmediatamente y 
pregunta por pantalla si se desea recibir 
ayuda. Si la respuesta es afirmativa, apa- 
rece una pantalla en la que se describe 
el comando utilizado y su sintaxis correc- 
ta. 

La función FL sirve para poner en la par- 
te superior de la pantalla los diversos 
controles para la modificación, borrado 
y escritura de los datos. 

La documentación suministrada por el 
paquete está, de momento, en inglés, 
aunque los distribuidores de ASHTHON 
TATE en España ya están preparando la 
versión castellana. Es completa y fácil de 
manejar. El manual se divide en varias 
secciones. La primera de ellas, tutorial, 
intoduce al usuario del paquete en la 
mayoría de los principales comandos del 
sistema. La segunda parte, de referen- 
cia, describe el paquete, la estructura 
de la base y el tipo de ficheros de datos. 
La tercera sección es un índice más 
completo y detallado de todos los co- 
mandos y funciones. Junto a ellos se su- 
ministra un pequeño paquete recordato- 
rio. 


' Menú principal de dBASE lll 


Puesta en marcha 

¿Qué es un... 

Cómo se... 

Crear una Base de Datos 

Utilizar una Base de Datos existente 
Mandatos y funciones. 


_|=selección de menú, PgUp = pant 


previa, Esc = Salir de AYUDA o teclear 
mandato Teclee > 


odon — 


PASCAL 


/ Ficheros 


ODOS los programas 
que hemos realizado 
hasta el momento 
han guardado sus da- 
tos en la memoria del 
ordenador; por todos 
es sabido que la úni- 
ca forma de preser- 
var el contenido de ésta es, en principio, 
mantener el ordenador conectado (sal- 
vo en algunos ordenadores portátiles 
que permiten la desconexión sin que se 
borre la memoria) y sin dedicarlo a nin- 
guna otra tarea que utilice la memoria 
para distintas cosas. 

Está claro que los ordenadores no ha- 
brían alcanzado la enorme difusión de 
nuestros tiempos si no existiera algún sis- 
tema para guardar los datos que se han 
introducido, o los nuevos datos obteni- 
dos por los programas, de manera que 
estén disponibles para su uso en cual- 
quier otro momento, aunque el ordena- 
dor se haya estado dedicando a otra ta- 
rea o incluso haya estado desconecta- 
do. De estas cuestiones vamos a hablar 
ahora. 

Existen multitud de sistemas de alma- 
cenamiento de información; de ellos el 
más versátil y extendido entre los orde- 
nadores personales es, sin duda, el de 
disco magnético flexible o «diskette». 
Aunque los conceptos que vamos a ex- 
poner se van a tratar en plan general, se 
hará, no obstante, con la mirada puesta 
en los discos flexibles. 

Desafortunadamente, al ser estas cues- 


tiones tan dependientes de cada máqui- 
na en concreto, el PASCAL estándar es 
poco explícito sobre ellas, por lo que hay 
prácticamente tantas maneras de pro- 
gramarlas como versiones de compila- 
dor se han desarrollado. 

Por ello, se va a explicar lo que hay al 
respecto en el PASCAL estándar, aunque 
a la hora de confeccionar ejemplos utili- 
zaremos una versión concreta de com- 
pilador. Para esto hemos escogido el TUR- 
BO PASCAL de la casa Borland, que, en- 
tre otros, funciona con los ordenadores 
personales IBM y compatibles; éstos son 
los ordenadores personales dotados de 
disco flexible más difundidos en la actua- 
lidad y el compilador es, sin duda, el que 
más ha contribuido a la difusión del PAS- 
CAL y una de la herramientas de desarro- 
llo más vendidas en la historia de los or- 
denadores personales. 


Ficheros secuenciales 

Se denomina fichero o archivo («file» en 
inglés) a una secuencia de datos del mis- 
mo tipo de los que sólo uno de ellos está 
disponible en un momento dado. Imagi- 
nemos una cinta de magnetófono en la 
que se han grabado palabras una detrás 
de otra; el conjunto de palabras es lo 
que se denominaría un «fichero de pala- 
bras» y, como es lógico, en un momento 
dado sólo es posible escuchar una de 
ellas. Los ficheros de oficina son también 
un buen ejemplo. 

Los datos que se guardan en los dispo- 
sitivos de almacenamiento externo de un 
ordenador adoptan también esta estruc- 
tura, de manera similar a como se en- 


a PASCAL 


cuentran las palabras guardadas en la 
cinta del ejemplo. Los datos se encuen- 
tran uno detrás de otro en algún tipo de 
soporte físico (una cinta o un disco mag- 
nético, usualmente), de manera que, en 
un momento dado, sólo uno de ellos se 
puede leer o grabar. 

Al igual que en la cinta podría haber di- 
ferentes conjuntos de palabras (por 
ejemplo, la lista de los reyes Godos, los 
elementos de la tabla periódica, etc.), 
en un dispositivo de almacenamiento 
puede haber diferentes ficheros, a cada 
uno de los cuales se le habrá dado un 
nombre distinto. 

Cuando la única forma de llegar a un 
elemento específico de un fichero es co- 
menzar por el primero e ir recorriendo un 
elemento tras otro hasta llegar al desea- 
do, se dice que el fichero es SECUENCIAL 
(o de acceso secuencial). Es el caso de 
las cintas: la única forma segura de en- 
contrar la palabra buscada es ponerse al 
principio y escuchar una tras otra hasta 
llegar a ella. 


Para cambiar o añadir información a un 
fichero secuencial, se hace igual que 
como se haría para sustituir o añadir pa- 
labras a la cinta: se va recorriendo el fi- 
chero elemento a elemento hasta llegar 
a la posición deseada y entonces se gra- 
ba la información. 

Hay una serie de programas ya prepa- 
rados en los ordenadores que se encar- 
gan de manejar los dispositivos de alma- 
cenamiento; son parte de lo que se co- 
noce como «sistema operativo». Cuando 
se está trabajando con ficheros, estos 
programas se encargan de leer y grabar 
los datos en ellos cuando nuestro progra- 
ma PASCAL se lo pide, quedando a su 
cargo el manejo de una serie de punte- 
ros propios que les indican en qué ele- 
mento de un fichero nos encontramos en 
un momento dado, y en qué zona con- 
creta del medio físico (cinta, disco..) se 
encuentra cada fichero. En principio, no 
es necesario saber más sobre ellos. 

En PASCAL es posible definir variables 
de tipo fichero secuencial, con la parti- 
cularidad de que los datos que albergan 
no están en la memoria del ordenador, 
sino que corresponden a los datos de un 
fichero almacenado en el dispositivo ex- 
terno, y de que el número de datos no 
está definido a priori. Lo único que se tie- 
ne en memoria en un momento dado es 


la copia del elemento del fichero en que 
nos encontramos; a su vez, es posible 
modificar o añadir un elemento en esa 
posición con datos procedentes de la 
memoria. 

También se puede, por supuesto, avan- 
zar al siguiente elemento o posicionarse 
en el primero de todos, así como inaugu- 
rar ficheros o hacerlos desaparecer. 

Aunque teóricamente sería posible te- 
ner ficheros con todos sus componentes 
almacenados en memoria, pocos compl- 
ladores lo permiten y, además, sólo se- 
rían útiles en casos muy especiales de 
proceso de datos. 

El tipo de variable se describe ponien- 
do las palabras reservadas FILE y OF se- 
guidas del tipo de elemento que consti- 
tuye el fichero, que se puede declarar 
previamente o describirlo sobre la mar- 
cha. Para un fichero que contuviera los 
nombres de los reyes Godos: 


type 
ReyGodo.t = array (1..15) of char; 


var 
( “fichero de datos tipo ReyGodo.t”: ”) 
F : file of ReyGodo.!t; 


Tabla : array (1..33) of ReyGodo.!t; 
j : integer; 
Rey  :ReyGodo.!t; 


Para que la variable F se pueda utili- 
zar, hace falta indicar primero al PASCAL 
cómo se llama el fichero en que se en- 
cuentran sus datos y en qué dispositivo 
se encuentra, caso de existir más de uno; 
todo ello es parte del proceso denomi- 
nado «apertura» del fichero. No hay nor- 
mas sobre cómo hacer esto, por lo que 
depende de cada compilador. 

Supongamos que esta operación ya se 
ha realizado; hemos dicho que en todo 
momento, y de manera automática, se 
tiene en memoria una copia del elemen- 
to del fichero sobre el que nos encontra- 
mos. Esa copia sería en el ejemplo una 
variable de tipo ReyGodo.t y, como no 
tiene ningún identificador asociado, 
para referirse a ella se escribe F”, que vie- 
ne a significar algo como «la copia del 
elemento del fichero F en que nos encon- 
tramos ahora». Esta variable puede utili- 
zarse como cualquier otra del mismo 
tipo, y su contenido puede modificarse 


con vistas a ser transferido después al fi- 
chero. Por ejemplo: 


Rey := F”, 
F” := “Teudiselo de 


Para operar con ficheros se tienen las 
siguientes funciones y procedimientos 
predefinidos: 


EOF (F). Esta función (End Of File, fin de 
fichero) devuelve el valor lógico TRUE 
cuando nos hemos pasado de largo y 
nos hemos posicionado más allá del úl- 
timo elemento del fichero asociado a F. 

RESET (F). Este procedimiento hace que 
nos coloquemos al principio del fichero 
con vistas a su lectura. Tras su ejecución, 


end; 


Se ha utilizado una estructura WHILE, 
pues si el fichero estuviera vacío, no ha- 
bría que guardar ni un dato en Tabla. 

Imaginemos ahora que tenemos las no- 
tas de un examen guardadas en un fiche- 
ro. Si definimos la variable Notas como 
FILE OF REAL, para calcular la nota media 
podríamos hacer: 


Numero := 0; 
Suma := 0.0; 
reset (Notas); 
while not eof (Notas)do 
begin 
Suma:= Suma + Notas”; ("añadir la 
nueva nota *) 
get (Notas); 
Numero:= Numero + 4 (* incremen- 
tar el contador de notas ”) 
end; 
if Numero = 0 then writeln (Fichero va- 
cío.”) 


l:=1; (kx Empezar por el primer elemento x) 
reset (F); (k Leer el fichero desde el principio X) 
while not eof (F) do (k Mientras estemos sobre un elemento: *X) 
begin 
Tabla [lII:i= F”; (X Guardar elemento en la tabla x) 
get (F); (xk Pasar al siguiente x) 
l:=1+1 (Xx Incrementar indice x) 


F” contendría el primer elemento (a no ser 
que el fichero estuviera vacío, en cuyo 
caso su contenido sería imprevisible y 
EOF (F) devolvería TRUE). 


GET (F). Este otro, sin embargo, hace 
que se avance al elemento siguiente a 
aquél en que nos encontrábamos, pa- 
sando F” a tener una copia suya. Por tan- 
to, si no hubiera elemento siguiente, EOF 
(F) pasaría a valor TRUE y F” tendría un con- 
tenido indefinido. 


Con ellos, si, por ejemplo, quisiéramos 
leer del fichero todos los nombres de re- 
yes que contuviese guardándolos en la 
variable Tabla para su posterior utiliza- 
ción, podríamos hacer: 


else writeln (Nota me- 


dia= 
ro:6:2); 


Para modificar o incorporar nueva in- 
formación a un fichero se dispone de los 
siguientes procedimientos estándar: 

REWRITE (PF). Este procedimiento hace 
que el fichero asociado a F se vacíe, per- 
diéndose sus datos y quedando prepara- 
do para empezar a guardar nuevos da- 
tos en él desde su comienzo. Tras su eje- 
cución, EOF (F) pasa a valer TRUE. 

PUT (F). Al ejecutarse PUT (F), el conte- 
nido de F” se transfiere al fichero, justo en 
la posición en que nos encontrábamos, 
pasándose a continuación a la siguiente 
posición. Por tanto, si antes de ejecutar- 
se estuviéramos más allá del último ele- 
mento, el nuevo quedaría a continua- 
ción, siendo ahora él el último, y quedan- 
do nuevamente posicionados más allá 
de éste. 


",Suma/Nume- 


se PASCAL 


Con ellas, para guardar los elementos F” := Tabla (1); 
de Tabla en el fichero asociado a F haría- put (F) 
mos: end; 
rewrite (PF); Para añadir nuevas notas al fichero No- 
for l:= 4 to 33 do tas, justo a continuación de las ya exis- 
begin tentes, haríamos: 


(X Nos ponemos al principiu y avanzamos hasta llegar al final: *) 
reset (Notas); 
while not eof (Notas) do get (Notas) ; 


writeln (” ia > una nota negativa para acabar.?”); » 
repeat 
LeerNota (S); (k procedimiento para leer notas desde mE, A x) 
if S >= O then 
begin 
Notas” := S; 
put (Notas) 
end + 
until S < 03 


LeerNota sería un procedimiento escri- podríamos utilizar un fichero de elemen- 
to por nosotros y S una variable de tipo tos del mismo tipo que la tabla, con lo 
REAL. que, al haber sólo uno, la forma de pro- 

En el caso de los reyes Godos, como el ceder sería mucho más sencilla (y rápi- 
número de elementos está predefinido, da): 


program ReyesGodos; 


type 
ReyGodo_t = array [1..15] of char; 

Tabla_t = array [1..33] of ReyGodo_t; 
Fichero_t = file of Tabla_t; 


var 
F 2 Fichero_t; 
Tabla : Tabla_t; 


begin 
(Xx ...apertura del fichero... X) 


(X ...lectura de la tabla: — %X) 
reset (F); e 
if mot eof(F) then Tabla := F” 

else writeln (”Fichero vacíio.”); 


A 
end. 


Se ha definido previamente el tipo de fichero a modo de ejemplo exclusivamente. 


ADA-2 


O Partes del 
lenguaje 

N programa ADA se 
compone de una o 
más unidades de pro- 
grama, las cuales 
pueden ser compila- 
das separadamente. 
Las unidades de pro- 
gramas pueden ser 
subprogramas (que definen algoritmos 
ejecutables), paquetes (los cuales defi- 
nen conjuntos de entidades), o tareas 
(las cuales definen procesos concurren- 
tes, o corrutinas). Cada unidad, normal- 
mente, está formada por dos partes: 


— Una especificación, que contiene 
la información que debe ser accesible 
por otras unidades (equivalente al módu- 
lo de definición del MODULA-2). 

— El cuerpo, que contiene los detalles 
de la implementación, que son totalmen- 
te transparentes al resto de las unidades 
(equivalente al módulo de implementa- 
ción del MODULA-2). 

Esto permite la realización modular del 
software, lo que favorece el diseño y 
mantenimiento de programas muy gran- 
des. 

Un programa ADA, normalmente, utiliza 
unidades de programa que se encuen- 
tran en la biblioteca de utilidades, lo que 
dota de una gran consistencia, ya que 
casi todas las operaciones más usadas, 
como las de entrada salida, son defini- 
das como cualquier otra unidad, de for- 
ma que para cada ordenador concreto 
sólo varía el cuerpo de implementación, 
permaneciendo igual el bloque de defi- 
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nición. Esto favorece la portabilidad del 
software de un ordenador a otro comple- 
tamente diferente. 

Describamos ahora brevemente las 
partes del bloque de definición. 

Los subprogramas son las unidades bá- 
sicas en la definición de algoritmos. Estos 
pueden ser de dos tipos, procedimientos 
y funciones. 

Un paquete es la unidad básica para 
definir un grupo de entidades relaciona- 
das lógicamente. 

Una tarea es la unidad básica para de- 
finir una secuencia de acciones, que 
pueden ser ejecutadas, en paralelo, con 
otras unidades similares. 

El cuerpo de una unidad de programas 
consta, normalmente, de dos partes: 


— La declaración, en la cual se defi- 
nen las entidades lógicas que se van a 
utilizar en la unidad (variables, tipos de 
datos, funciones, procedimientos, etc.). 

— Una secuencia de sentencias que 
definen el proceso de ejecución. 


[m Tipos predefinidos de datos 


Cada objeto en el lenguaje pertenece 
a un tipo que puede tomar una serie de 
valores y al que se le pueden aplicar un 
conjunto de operaciones. 

Existen cuatro clases de tipos: 


— Escalares: Enumerados (o subran- 
go) y numéricos. Los predefinidos son 
BOOLEAN y CHARACTER, como enumera- 
dos, e INTEGER y DURATION como numéri- 
cos. 

— Compuestos: Cuya estructura está 
formada por elementos de otros tipos. 
Pueden ser matrices o registros. 
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- — Tipos de acceso: Permiten la cons- 
trucción de estructuras de datos creadas 
por la ejecución de localizadores. Permi- 
tiendo asignar a un mismo objeto tipos e 
identificadores diferentes, según nos in- 
terese, pudiendo alterarse éstos en tiem- 
po de ejecución. Este tipo innovador per- 
mite una gran flexibilidad en el montaje 
final de diferentes bloques, eliminando 
los posibles problemas de incompatibili- 
dad de tipos, uno de los graves proble- 
mas del lenguaje MODULA-2. 

— Tipo privado: Son tipos ocultos de 


abort declare 


delay 


accept 
access delta 


digits 


entry 


exception 


exit 


constant function 


Otra característica nueva implementa- 
da para favorecer la portabilidad del 
software en diferentes máquinas es la 
traducción sintáctica. Esta se basa en la 
traducción de una cadena de caracte- 
res (STRING) pertenecientes a un conjun- 
to (SET) diferente (normalmente proviene 
de un dispositivo no compatible de otro 
ordenador), traduciendo univocamente 
los códigos de los diferentes caracteres 
mediante una tabla de traducción. 

De cualquier forma, el lenguaje ADA 
utiliza preferentemente el código ASCII. 


generic of 


goto 


limited 


loop 


case for not 


uso interno de un paquete cuyas carac- 


terísticas se hacen visibles, en parte, a 
los demás paquetes, ocultando los deta- 
lles menos importantes de la implemen- 
tación concreta. 

También existe el concepto de subtipo 
(similar al subrango de otro tipo en PAS- 
CAL) con limitación de operadores y ran- 
go. 

A pesar de la gran profundidad sintác- 
tica del lenguaje ADA, el número de pa- 
labras reservadas es pequeño (ver figura 
siguiente). 


select 


or separate 


subtype 


task 


package terminate 


pragma then 


private 


type 


procedure 


raise 


range 


record when 


rem while 


renames with 


return 


reverse xor 


La sintaxis de las declaraciones, asig- 
naciones y definiciones de tipo son muy 
similares a las del PASCAL; diferencián- 
dose en ligeros matices léxicos. 

Las cadenas de caracteres son llama- 
das SLICES (en vez de STRINGS, como sue- 
le ser habitual). 

Por supuesto, las declaraciones permi- 
ten partes variantes, para una mayor 
flexibilidad en la definición, dependien- 
do de parámetros. 

En el próximo capítulo detallaremos la 
sintaxis del lenguaje. 


